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APPENDIX  A 

GROUND  SUPPORT  EQUIPMENT  OPERATIONS  SURVEY  QUESTIONNAIRE 


GROUND  SUPPORT  EQUIPMENT  OPERATIONS  SURVEY  INSTRUCTIONS 

Ground  Support  Equipment  (GSE)  includes  all  powered  equipment  used  in 
the  maintenance  of  aircraft.  This  equipment  was  formely  known  as 
aerospace  ground  equipment  (AGE)  and  it  includes  equipment  directly 
supporting  aircraft  systems  such  as  compressors,  generators,  heaters, 
coolers,  and  hydraulic  units  as  well  as  equipment  for  indirect  support 
such  as  lighting  units  and  cowing  vehicles. 

This  questionnaire  is  designed  to  secure  data  that  will  be  incorporated 
into  AQAM,  an  Air  quality  Prediction  Model.  This  data  will  improve  the 
accuracy  of  the  model's  predictions  and  simplify  the  input  data 
required  from  the  user. 

This  questionnaire  is  comprised  of  three  forms.  On  Form  ls each  piece 
of  powered  GSE  used  in  support  of  an  aircraft  is  identified.  A 
separate  copy  of  Form  1  should  be  completed  for  each  type  of  aircraft 
at  the  base.  On  Form  2  data  on  each  type  of  GSE  is  requested.  Monthly 
operations  data  and  average  temperatures  are  to  be  entered  on  Form  3. 

AQAM  considers  most  aircraft  activities  to  be  directly  related  to  the 
number  of  landing  and  takeoff  (LTO)  cycles.  An  LTO  cycle  for  an 
aircraft  includes  operational  modes  from  idle  at  startup,  to  climbout, 
to  approach,  to  idle  at  shutdown.  GSE  activities, by  their  nature, are 
also  related  to  the  number  of  LTO  cycles.  Thus,  selected  entries  in 
this  questionnaire  must  be  related  to  the  number  of  LTOS. 

Instructions,  Form  1  (One  for  each  type  of  aircraft  at  the  base.) 

Identify  the  aircraft  type,  the  command,  the  wing,  and  the  base.  Next 
identify  the  person  who  is  completing  the  questionnaire  (respondent)  by 
name  and  commercial  telephone  number.  Note  that  a  separate  copy  of 
Form  1  must  be  completed  for  each  type  of  aircraft.  List  each  piece  of 
powered  GSE  that  is  associated  with  the  previously  identified  aircraft. 
If  multiple  units  of  the  subject  GSE  are  required  for  servicing  the 
aircraft,  identify  and  list  each  unit  separately.  Each  unit  of  GSE 
should  be  identified  by  name,  stock  number,  and  engine  type  (e.g., 
turbine,  gasoline,  diesel).  Next,  for  each  listed  GSE  indicate  the 
types  of  missions  that  result  in  significantly  different  GSE 
operations.  For  example,  the  nature  of  the  cargo  on  a  MAC  aircraft  may 
require  air  conditioning.  When  mission  type  is  not  an  important 
variable,  enter  "STD"  under  mission  type.  For  each  mission  type,  give 
the  GSE  operations  time  in  hours  per  LTO  at  each  of  the  six  listed 
ambient  temperatures.  As  an  example,  low  ambient  temperatures  will 
require  heaters  to  be  operated,  and  high  ambient  temperatures  will 
require  the  operation  of  air  conditioners.  If  the  operations  time  of 
the  subject  unit  of  GSE  does  not  depend  on  temperature,  then  enter  the 
same  data  under  each  temperature.  For  each  mission  type,  give  the 
quantity  fuel  consumed  per  LTO  by  the  subject  GSE  at  each  of  the  six 
listed  ambient  temperatures.  Most  of  the  required  information  must  be 
collected  from  interviews  with  maintenance  personnel.  If  the  space 
provided  on  one  Form  1  is  insufficient  to  list  all  powered  GSE 
associated  with  the  subject  aircraft,  continue  on  a  second  Form  1  and 
staple  it  to  the  first.  - 


Instructions,  Form  2 

Identify  the  wing,  the  respondent,  and  the  commercial  telephone  number 
of  the  respondent.  Identify  each  unique  unit  of  GSE  listed  on  Form  IS 
by  name,  stock  number,  manufacturer,  and  its  characteristic 
specifications  (i.e.  engine  Cype,  fuel  type,  engine  displacement  and 
fuel  consumption).  In  addition  give  the  number  of  units  of  GSE 
possessed  by  the  subject  wing.  Note  that  the  manufacturer's 
specification  on  fuel  consumption  may  differ  from  that  actually 
observed  during  use:  enter  both  values.  Most  of  the  required 
information  can  be  secured  from  Technical  Orders  for  the  equipment. 

The  wing  equipment  management  office  can  supply  the  number  of  possessed 
GSE.  The  observed  fuel  consumption  data,  however,  must  be  secured  from 
interviews  with  maintenance  personnel.  If  the  space  provided  on  one 
Form  2  is  insufficient  to  list  all  powered  GSE  units  on  the  base, 
continue  on  a  second  Form  2,  and  staple  it  to  the  first. 

Instructions,  Form  3 

Identify  the  wing,  the  respondent,  and  the  commercial  telephone  number 
of  the  respondent.  In  this  portion  of  the  questionnaire,  monthly  data 
for  each  of  the  last  12  months  are  requested  for  the  subject  wing. 

Enter  the  GSE  fuel  consumption  in  gallons  by  fuel  type:  Mogas,  JP-4, 
and  diesel.  Next,  enter  the  average  mean,  maximum,  and  minimum  daily 
temperatures  in  *C.  Finally,  enter  the  number  of  LTO's  -in  each  of  the 
last  12  months  by  plane  type.  Note  that  in  this  form  transient 
aircraft  are  considered  as  one  type.  This  information  is  routinely 
archived  and  should  be*  readily  available.  (For  example,  see  field 
maintenance  office,  base  weather  station,  and  wing  production  analysis 
office . ) 


Ground  Support  Equipment  Operations  Survey  -  Form  1 


Ground  Support  Equipment  Operations  Survey  -  Form  2 
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APPENDIX  B 

SURVEY  DATA:  AIRCRAFT,  GSE,  AND  GSE  OPERATING  TIMES  (COLUMN  HEADINGS 
ARE  BASE  IDENTIFIERS:  SEE  TABLE  1) 
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APPENDIX  C 


LISTING  OF  REVISED  SOURCE  INVENTORY  PROGRAM 


PROGRAM  SRC1NV  < INPUT-101B.OUTPUT-201B.TAPE5-INPUT 
1  TAPE6-OUTPUT.TAPE21.TAPE3-/1000) 


c 


« 


% 

s 


I 


i 


c 


SOURCE  INVENTORY  PROGRAM 
C 


t 

2 

3 

4 

5 

6 

1 

2 

3 

4 

5 

6 
7 
a 

9 


1 


1 

2 

3 

4 

5 

6 

1 

2 

3 

4 


INTEGER  AC NAME , EG NAME , ENG NO 
REAL  LNDSPD 
COMMON  /ACEDB1/ 

ACEMFC(8,10,6)  ,  AC  NAME  (  50) ,  EG  NAME  C  50  > ,  ENGNO(  50,2  ) , 
ASCNT1  (  50)  ,ASCNT2<  50>,TXISPD<  50>,LNDSPD<  50), 

APSPD1  (  50)  ,  COHT1I  50)  ,APSPD2( 50 ) ,TOSPD<  50) , 
COSPD1(50),COSPD2(  50  > ,  SRTUPTI  50  > ,  DSCNT1  <  50  > , 

EGCHKTI  50  ) ,  SHTDNT (  50  ) ,  DSCNT2(  50  )  .APPHT , 

APPHT2(  50) ,  CLMBHT ,  TOWT<  50) 

COMMON  /ACEDB2/ 

NACTYP , NRNWYS , NPKAR , I EGFLG , 

IAC7YP  <  8 ) , ANNARR( 8 ) , ANNDEP ( 8 ) , ANNTGOt 8  ) , 

ARRFCNt 24,6 ) , DEPFCN  t 24,6 ) , TGO( 3 , 4 ) , D I SRNW( 6 ) « 

RNWY ( 7 , 6 ) , I USWD< 20,6), RNWYAR( 8.6), RNWYDP <  8 , 6 ) , 
ACFUEK  8  > ,ARFLVT( 8>,DPFLVT(8),ACSPIL<8), 
ARSVEM(6,8,5),DPSVEM(6,8,5),NIBTT(6>,NIBSEG<8,6), 
IIBSEGI  16 , 8 , 6  1 1 ID  I BTW( 8,6>,TTARFR<8,8,6), NOBTTI 6  > , 
NOBS£G<8,6  >, IOBSEG< 16,8,6), IDOBTU( 8,6), TTDPFRI 8,8,6) 
NPASQ( 6 ) , IOPRKAC  6 ) , PAREAt  6,3,3) , IDIBPAC  8,6 ) , 

I DOBPAt 8,6  >,NLSEGS,ACLNSG< 12,25  ) 

COMMON  /ACEDB3/ 

NWCASE , OES 1 <  8 ) , I RNWY< 2,6) 

REAL  LUEMFC 
COMMON  /EMFDB 1 / 

EGEMFCI 6,4,50) , PLNAME ( 6 > . PPEMFCI 22 , 6 > , EMFCINI 5 , 6  ) , 
TFEMFCI  6 ) , LUEMFCI 9 ,6  > , ALPHA! 7 ) , BETA( 7 ) , 

FLDENSI 7  ) , FLNAME (7),AFEMFC(2,6,6) , ATEMFCI 2,6,6), 
CSEMFCI 6,6) ,AFCSEM<  6,6) , AF SOAK , ATSOAK , 

AFBRTH , ATBRTH ,FLTFCT( 7 ) , F I XFCT(  7  ) , 

WRKFCTI 7  ) 

COMMON  /DSTRBT / 

ACMOf 1 3 , 50 ) , ACDY ( 2 , 50 ) , ACHRI 24 , 50 ) , VHMLMOI 13), 
VHMLDY( 2 ) ,VHMLHR( 24 ) , CVABMO( 13), CVABD Y( 2  ) , 

CVAEHRl 24 > ,CVENMO( 13), CVENDY ( 2 > , CVENHRt 24 ) , 

FLMO( 13,7),FLDY(2,7),FLHR(24,7) 

COMMON  /ANNMET / 


1  TBAR ,ADD , P , PA, 

2  WSBAR .0 TBAR , AMD BAR 
COMMON  /DEFALT/ 

1  NPLTS , ITAPE ,ACLNDY , ACLNDZ, 

2  TCVSOR.TCHBDF.TCHODF.TCDYDF, 

3  TCOZDF,RUDSDF,RUTSDF,RUVSDF, 

4  RUHBDF , RUHODF ,RUDYDF,RUDZDF, 

5  TFDZDF.TFQDF.TFHBDF .TFHODF , 

6  EGCKDV.EGCKDZ.ACMLPL .ARDSDZ, 

7  ATDSDY .ATDSDZ, TCDSDF .TCTSDF , 

8  FPL'FLT,TDOFLT,RFDFLT,SFDFLT, 

9  PFCFLT.TFDFLT.TFDYDF , MINUS! 6  ) 
COMMON  /ARRAYS/ 


1  HCWRK ( 10,50), HCBRTHf  5 , 100 ) , HCEVP { 3 , 50  > 

COMMON  /SPACE/ 

1  SORCE ( 2100  >,SOREM( 8,250) 

COMMON  /POIHTR/ 

1  M .  'ISRCES  ,  NMAX ,  NMAXE  , 

2  L3RCES ,NTOT 
COMMON  /AUTOS/ 

1  XEMITT(2,6,6),YCLDST(6,6), SOAK , BRTH , 

2  I AREA, IHDV , IAAT, I  YEAR 


I 
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COMMON  /TOTS/ 

1  TOTEM! 20,6) ,TOTEVP< 10 ) , EMISS< 8 , 1 5 , 6 > 

INTEGER  THHAME 
COMMON  /EGEDB 1 / 

1  ,  MONAM1 ( \0) ,THNAME( 4  > , MONAM2( 10) , IDACEG!  50) 

2  IACABF <  50 ) , EGFF ( 4 , 50) , I EGABF !  50 ) , IDRR!  50 ) 
INTEGER  GCNAME , GSNAME 
COMMON  /GSED81/ 

NSFLS, ISFMAP! 5  > , 

GCNAME < 15), 

GSNAME  (  50  ) ,  IGSCAT(  50 ) , 

IGSFLT<  50 ) ,GSFF ( 50 > , GSEMFC( 6 , 50) , 
GSP.VCT!  50,50), 

GSrUEL(5),NGSTYP, I  GST VP ( 30 ) , 

GSUSGE ( 30  > , IGSAGN ( 8,30), 

GSETIM( 8,30) 

C 

INITIALIZE  PROGRAM 
C 

CALL  OVERLAY! 5HFIRST  ,1,0) 

CALL  REMARK! 16HFIRST  COMPLETED) 

C 

C**»*  PERFORM  AIRCRAFT  SOURCE  INVENTORY 
C 

CALL  OVERLAY ! GHACEMIV , 2,0) 

CALL  REMARK! 16HACEMIV  COMPLETED) 

C"***  PERFORM  AIRBASE  SOURCE  INVENTORY 

C 

CALL  OVERLAY! 6HABEMIV, 3,0) 

CALL  REMARK! 16HABEMIV  COMPLETED) 

C 

C***»  PERFORM  ENVIRON  SOURCE  INVENTORY 
C 

CALL  OVERLAY! 6HENEMIV,4,0) 

CALL  REMARK! 16HENEMIV  COMPLETED) 

C 

C«»*»  PRINT  TOTALS 

C 

CALL  OVERLAY! A4HL AST  ,5,0) 

CALL  REMARK! 16HLAST  COMPLETED) 

S~OP 
END 
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OVERLAY  (MAIN, 0,0) 

3 LOCK  DATA 

C  BLOCK  DATA  °LACES  DEFAULT  VALUES  IN  COMMON  BLOCKS 
BLOCK  DATA 

INTEGER  ACNAME .EGNAME , ENGNO 
REAL  LNDSPD 
COMMON  /ACEDB1/ 

1  ACEMF C( 3 , 10, 5 ) , ACNAME <  50 ) , EGNAME ( 50 ) , ENGNO( 50,2), 

2  ASCNTK  50) .ASCNT2! 50 > , TX I SPD ( 50 ) , LNDSPD< 50 ) , 

3  APSFOK  50)  , COHT1!  50)  , APSP02<  50)  ,TO$PD<  50) . 

4  COSPDK50)  ,COSPD2<  50  ) ,  SRTUPTI  50  > ,  DSCNT1  <  50  ! , 

5  EGCKKTI 50 ) . 3HT0NTI 50 ) , DSCNT2I 50  > .APRHT, 

6  A°PHT2( 50) ,CLMBHT,TOWT< 50) 

COMMON  /ACED32/ 

1  NACTYP , NRNWYS .NPKAR, IEGFLG, 

2  ! ACTYP ( 8  )  .ANNARRt  8 ) .ANNDEP  < 8  > , ANNTGOI 8  > , 

3  APP.cCfl(  24 , 6  > , DEPFCN<  24 , 6  > ,  TGO<  3,4) ,  DISP.NWI  6  ) , 

4  RNWY (7,5), IUSWC <20.5). RNWYAR ( 8,6). RNWYOP  <  8,6), 

5  ACF'JEL(  8  )  ,ARFLVT<  8  ) ,  DPFLVT(  3  )  .ACS?  IL<  8  ) , 

6  ARSYEM(6,8,5),0PSVCM(6,S.5),NIBTT(6),NIBSEG(8,6), 

7  I I£5E6< 16,8,6). IOIBTW<  8,5 > .TTARFRC 8,8,6), NOBTT ( 6 ) , 

8  N02SEG(  8,6  ).  I OBSEGI  16,8,6  ,  IDOBTWl  3  ,  6  ) ,  TTDPFR<  8 . 8 , 6  ) , 

9  NPASCK  6  ) , IOPRKAi 6  > , PAREAi 6 . 3 , 3 > . I D i 3PA<  8 , 6 ) , 

+  IDOBpA(8,6>,NLSEGS,ACLNSG( 12,25) 

COMMON  / NCEDE3/ 

1  WCASc , JES 1 ( 8 ) , I RNWY (2,6) 

REAL  LUE'^FC 
COMMON  /EM- OBI/ 

1  EG£MFC<  6,4,50! . PL  NAME! 5 > . PPEMFC ( 22 , 6 > , EMFC I N< 5 , 6 > , 

2  TFEMFC!  6 ) ,LUEMFC( 9,6 ) , ALPHA! 7 ) , BETA! 7 ), 

3  FLDENS ( 7  ) , F LNAME ( 7  ) , AFEMFC!  2,6,6) . ATEMFCI 2,6,6), 

4  CSEMFC! 6 , 6  > , AFCSEM! 6 , 6 ) ,AF SOAK, AT SOAK, 

5  AFSPvTH  .ATBRTH  ,FLTFCT(7),FIXFCT(7), 

6  WRKFCTl 7 ) 

COMMON  /DSTR5T/ 

1  ACMO; 13,50) , ACDY( 2 , 50 ) , ACHR{ 24.505 , VHMLMO! 13), 

2  VHMLJV < 2  ) , VHMLHM 24 )  .CVA3MO! 13 ) ,CVABDY( 2  > , 

3  CVA3HR( 24  )  ,CVEhMO( 13 ) ,CVEMDY( 2 ) .CVENHRI 24 ) , 

4  FLMO! 13,7),FLDY(2,7),FLHR<24,7) 

COMMON  /ANN, MET / 

1  TSAR. ADO. P, PA. 

2  WSBAR  ,  OTBAR  , AMDBAR 
COMMON  /DEFALT/  . 

1  NP  LTS . ITAPE .ACLNDY , ACLNDZ . 

2  TCV3D* , TCHBPF .TCHODF , TCD  VDF , 

2  TCDZDF  ,  RUDSDF  .  P.UTSOF  ,  RUVSDF  , 

4  RUrlBOF  ,  RUHODF  ,  RUDYOF  ,  RUD2DF  , 

5  TrOZSr  ,TFQDF .TrHBOF , TFHGDF , 

6  EGCKl V , EGCKDZ , ACML  PL .ARUCDZ, 

7  AT03DY  .ATDSDZ.TCDSDF  .TC.T30F  , 

S  FPSTLT.TDDFLT.P.FDFLT.S?  Jr-T. 

9  PFD-  LT.TFDFLT.TFDYDF  .MINUS!  6  ) 

COMMON  /AR'-.A  .  S/ 

1  MCWPKi  10,50  >  ,  HCBRTHi  5 , 100)  ,HCEVP<  ?  ,  50  ) 

COMMON  /SPACE / 

1  SORCE!  2100!  .SOREM!  8,250) 

COMMON  /PO:iTR/ 

>  M,  NSPCES , MMAX . NMAXE , 

2  LSPCES . MTOT 
COMMON  /AUTOS/ 

1  XEMITT!  2.6,6  )  .  VCLDST(  6,6  / ,  SOAK ,  BRTH  , 

2  I AREA, IHDV, IAaT. I  YEAR 
COMMON  /TOTS/ 
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1  TOTEM!  2.0,6  )  .TOTEVPl  10 ) ,  EMISS1  8 , 1 5 , 6  ) 

INTEGER  THNAME 
COMMON  /EGZOBl/ 

1  MOHAMK  1J0T ),  THNAME  <  4  >,MONAM21  10  > ,  I  DACEG<  50 ) , 

2  IACABF 1 50 ) , EGFF1 4 , 50 ) , IEGABF ( 50 ) , I DRR( 50) 

INTEGER  GCNAME , GSNAME 

COMMON  /GSEDB1/ 

1  NSFLS, ISFMAP1  5 ) , 

2  GCNAME (15), 

3  GSNAME 150) , IGSCAT1 50 ) , 

4  IGSFLT150),GSFF!50),GSEMFCC6,50>, 

5  G3RVCT1 50,50). 

6  G3FUEL 1 5  ) , NGSTYP , IGSTYP1 30 ) , 

7  GSUSGE ( 30  > i IGSAGN<  8,30), 

8  GSETIMl  8 , 30 > 

DIMENSION  EGDA011  6,4),EGDA02<  6,4>,EGDA03(  6,4>,EGDA04( 


EGDA05< 
EGDA101 
EGDA20< 
EGDA25< 
EGDA30< 
EGDA35 ( 
EGDA40( 
EGDA45 ( 
EGO A50< 


6.4) . EGDA06< 

6.4) , EGDA1 1 < 

6.4) , EGDA2 1 ( 

6.4) , EGDA26( 

6.4) , EGDA3 1 < 

6.4) , EGDA361 
6,4  )  ,EGDA41< 

6.4) , EGDA46< 

6.4) 


6,4  )  ,EGDA07< 

6.4) , EGDA1 2( 

6.4) , EGDA22< 

6.4)  ,EGDA27( 

6.4) , EGDA32 ( 

6.4  ),EGDA37( 

6.4) ,  EGDA4  2  < 

5.4  )  ,EGDA47( 


6,4  )  ,EGDA08( 

6.4) , EGDA1 3( 

6.4) , EGDA23 ( 

6.4) , EGDA28 ( 

6.4) , EGDA33 ( 
6,4  )  ,EGDA38( 

6.4) , EGDA43( 

6.4) , EGDA48 ( 


6,4), 


6.4)  , EGDA09( 

6.4) , EGDA14( 

6.4) , EGDA24< 
6,4  )  ,EGDA29< 

6.4) . EGDA34 ( 

6.4) , EGDA39 ( 
6,4  )  ,EGDA44( 

6.4) , EGDA49( 


6,4), 

6.4) , 

5.4) , 

6.4) , 
6,4), 
6,4), 
6,4), 
6,4), 


EQUIVALENCE  ( EGEMFCl 1 >,EGDA01< 1 >  >,(EGEMFC{ 25/.EGDA021 1 > ) , 

A  1 EGEMFC( 49 ).EGDA03< 1 ) >,( EGEMFCl  73 ) , EGDA04( 1  )  ) , ( EGEMFC(  97), 

8  EGOA05< 1 ) ),( EGEMFCl 121 ) , EGDA06 ( 1 >>,( EGEMFCl 145),EGDA071 1 ) ) , 1 EGEMF 
CC  (169 ) , EGDA081 1 ) ).l EGEMFCl 193 ) , EGDA091 1 ) >.t EGEMFCl 217) .EGDA101 1 )  ) 
D  ,i  EGEMFCl  24  i  KEGOAUt  1  ;  >,<  EGEMFCl  265  >.EGDA121  1  )),  1  EGEMFCl  289  ),  EGD 
EA1 3  . 1 )  ),( EGEMFCl 313), EG DA  14! 1 ) ),t  EGEMFCl  337  >,EGDA15( 1 ) ),1 EGEMFCl 36 
FI  )  ,EGDA16l 1  )  )  .(EGEMFCl 385) .EGDA171 1 > ) .(EGEMFCl 409),EGDA18( 1 ) ), 

G  1  EGEMFCl  433  ) , EGDA1 91  1 ) > .(EGEMFCl  457  J.EGDA201 1 )>, 1 EGEMFCl 48 1  ) , 

H  EGDA2 1 ! 1 > ) ,1 EGEMFCl 505 ) , EGDA221 1 : ),( EGEMFCl  529).EGDA23( 1  )  ) , 

I (EGEMFCl 553  > , EGDA241 1 >  >,( EGEMFCl 577  >, EGDA251 1 ) > ,1 EGEMFCl 601 ),EGCA2 
061  i > ),< EGEMFCl  625 ),EGDA27( 1 ) ), 1 EGEMFCl  649  >, EGDA2B1 1 >  >, 1 EGEMFCl 673  ) 
K.EGDA291  1  .').(  EGEMFCl  697  )  .EGOA301  1  )  > ,  1  EGEMFC 1  72 1  >,EGDA31(  1  )  >,(  EGEMF 
LC! 745 ) . EGDA321 1 ) ), (EGEMFCl  769  ) , EGDA331 1  )  ),( EGEMFCl  793  > , EGDA341 1  )  ) , 
Ml EGEMFCl 817 ),EGDA35( 1 ) ),1 EGEMFCl 841  ) , EGDA361 1 ) >,1 EGEMFCl 865  ) , EGDA3 
N71 1 ) ) . (EGEMFCl  889),EGDA38( 1 ) ) , 1 EGEMFCl 9 1 3  > . EGDA391 1 >), 1 EGEMFCl  937  ) 
0 , EGDA401 1 i ) , 1 EGEMFCl 961 ) .EGDA41 1 1 / > ,1 EGEMFCl  985  > , EGDA4  2! 1 ) ) ,1 EGEMF 
PCI 1U09 ) , EGDA43 1 1 >),( EGEMFCl 1033 ) , EGDA4  41 1  )  ) , ( EGEMFCl 1057  ) , EGDA4S 1 1 
Q) > . 1 EGEMFCl 1061 ) .EG0A461 1 ) ) , 1 EGEMFCl 1 105 i ,EGDA4  7< 1  )  ) , ( EGEMFCl 1129) 
R , EG3A481 l > ) ,1 EGEMFCl 1153), EGDA491 1  )  ) , ( EGEMFCl 1177  ) , EGDA501 1  )  ) 
DIMENSION  GSCA01 1 6  )  .GSDA021 S  > , GSOA031 6 ) , GSDA04 1 6 > .GSOA051 6  > , 

A  GSDA061 5 ) ,GSDA07< 5 ) , GSDA081 6 ) .G3DA091 6  ), GSDA 101 6  )  ,GSDA1 1 ( 6  )  , 
GSDA12! 6 ) .GSDA131 6 ) .G3DA141 6  >,GSUA15< 6  >,GSDA16<  6  >,GSDA17( 6  )  , 

GSDA 1816), GSDA 19(6) , GSDA201 6 ) , G30A2 116), G5DA221 6 ) , GS0A231 6 ) , 
G3DA24 ( 6 > .G3DA251 6  > .GSDA261 6 ).GSPA27! 6  ) , GSDA231 6  )  .GSDA291 6  ) , 
G3OA301 6 ) .G3DA311 6 ) .G3DA32! 6  )  .GSDA331 6  )  .G3DA341 6  )  , GSDA35C 6  ) , 
SSJA361  6  .G3DA3  71  5  )  .GSDA381  6  )  .GSDA391  6  i  .GSDA401  5  )  .G3DA41 1  5  )  , 

S3  DA  42 (  6  )  , CSDA43 (  6  )  .GSDA441  6  )  ,  3SDA451  6  )  .GSCA461  6  >  . GSCA471  6  )  , 
SSj-USI  6  )  .  GSDA491  6  ),G3DA50(  6  ) 

EQU: VALENCE  ( GSEMFCl 1 ) .GSDA.J1 ! i ) ) .1 GSEMFCl 7 ) . GSDA02 1 1 )  ) , 

A  1 G  C E MFC 1  13  )  . GSDA03 t 1  )  )  . ( GSEMFCl 19  )  .GSDA041 1  )),< GSEMFCl 25  ) , 

GSDA051  I  )  )  .  1  GSEMFCl  31  > ,  GSDA.06'  i  )  )  ,  1  GSEMFCl  37  )  ,  GSDAJ7 1  1  )  )  , 

1 G3EMFC1 43 ) .GSDA081  1 ) > , 1 GSEMFCl 49  )  .GSDA09-  1  >  )  . 1 GSEMFCl 55  > , 

GSOA.101  1  >  )  .  1  GSEMFCl  61  )  .  GSDA 1  1  (  1  )  ) ,  1  GSEMFCl  67  )  .GSDA121  1  )  )  , 
l GSEMFCl 7C - .GSDA 131 1 ) ) . 1 GSEMFCl 79  )  .GSDA: 41  1  )),( GSEMFCl 85  )  , 


c  G33A151  l  )  ;  . < GSEMFCl 91  )  , GSDA 151  1  )  > .(GSEMFCl 97  )  ,  GSDA) 71  1  )  )  , 

G  !  GCEWFC  102.' .GSDA  181  l  >  ) ,  (GSEMFCl  109  i  ,  GSDA.  1  9 1  1  )),  1  GSEMFCl  115), 
H  G33A.20: i  )  i  .  1 GSEMFCl  121  )  ,GSDA21(  I  )  )  , 1 GSEMFCl  127  )  , GSDA221  1  )  )  , 

I  1  GCErfCl  ICC!.  GS0A231  1  )  > ,  (GSEMFCl  139  )  .GSDA241  1  )  )  ,  (GSEMF&l  145  )  . 
J  G3 JA251  i >  )  . 1 GSEMFCl  151  > , GSDA25 (  1  )  > , 1 GSEMFCl  157  )  .GSDA271  1  )  )  , 
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K  (GSEMFC* 163  >,GSDA23< 1 > >  .(GSEMFC ( 169  >,GSDA29( 1 >>,( GSEMFC ( 175), 

L  GSOA30( 1 ) >. (GSEMFC ( 181  ) , GSCA3 1 ( 1  )  >.<GSEMFC< 187  ),GSDA32( 1  )  ) , 

M  (GSEMFC' 193  > ,GSDA33< 1 ) ),( GSEMFC'. 199)  ,GSDA3  4< 1 ) ),(GSEMFC( 205  ) , 

N  GSr.!A33(  1  )/.< GSEMFC ( 2 1 1  >,GS3A36(  1  )  > ,  <  GSEMFC<  217  )  ,GSDA37<  1  )  ) , 

0  (GSEMFC (223  ) ,GS0A38( 1 ) > ,( GSEMFC (  229),GSDA39< 1 >  >,( GSEMFC ( 235  ) , 

P  GSDA40! 1 > ) ,(GSEMFC( 241 > ,GSDA41( 1  ; > ,< GSEMFC (  2  47  ),GSDA42( 1  )  ) , 

Q  <  GSEMFC v  253  >,GS0A43( 1 > ),< GSEMFC ( 259  ), GSDA<4( 1  )>,( GSEMFC ( 265  ) , 

R  GS0A451 1 ) ),(GSEMFC( 27 1 > ,GSDA46( 1  ) >,( GSEMFC ( 277  )  ,GSDA47( 1  )  ), 

S  ( GSEMFC ( 28  3  >,GSDA48< 1 >),( GSEMFC ( 289  )  ,GSDA49( 1 )>,( GSEMFC < 295  ) , 

T  GSOA50( 1  i  ) 

DIMENSION  GTOA01 (  50  > . GTDA02 <  50 ) , GTDA03 ( 50  > , GTDA04 ( 50 ) , GTDA05 ( 50  > , 
AGTCA06  < 50) ,G7DA07<  50) ,GTDA08( 50  > , GTDA09 ( 50 ) , GTDA 10( 50 ) , GTDA 1 1 ( 50 ) , 
SG7DA 1 2 ( 50) .GTDAl 3<  50) ,GTDA14( 50 ) , GTDA1 5( 50 ) . GTDA1 6( 50) ,GTDA17( 50), 
CG7DA 1 8 ( 50) ,GTDA19( 50),GTDA20( 50 ) , GTDA2 1(50), GTDA22( 50>,GTDA23( 50), 
DG7DA24 ( 50 ) , GTDA25( 50 ) , GTDA26( 50  > , GTDA27<  50  > , GTDA28 ( 50 ) , GTDA29( 50 ) , 
EGTDA30! 50  > , GTDA3 1( 50) ,GTDA32( 50 ) , GTDA33( 50 ) , GTDA34( 50 ) , GTDA35( 50 ) , 
FG7PA26 ( 50 ) , G7DA37 ( 50) ,GTDA33( 50  ) , GTDA39( 50 > . GTDA40( 50 ) , GTDA4 1 ( 50 > , 
GG7DA42( 50)  ,GTDA43( 50) ,GTDA4  4{ 50)  ,GTDA45( 50) ,GTDA46( 50) ,GTDA47( 50 > , 
HG-DA4S<  50  )  .GTDA49( 50) ,GTDA50( 30  > 

EQUIVALENCE  (GSRVCT( 1 ) , GTOA01 ( 1  )  )  ,<GSRVCT( 51 >,GTDA02( 1 > ), 

A  (  GSRVCT( 101 > ,GTDA03( 1 ) > ,  (GSRVCK 151 ) ,GTDA04( 1 ) ) , (GSRVCT( 201 ) , 

3  G7DA05 ( 1 ) i , : GSRVCT < 251 ) ,GTDA06( 1  )  ) ,  (GSRVCK  301 >,GTDA07( 1 ) > , 

C  ( GSRVCT (351 ),GTDA03( 1 >),<  GSRVCK  401  ),GTDA09( 1 ) ) , ( GSRVCT( 45 1 >, 

D  GTDA10< 1 ) ) . ( GSRVCT<  501 > , GTDA 1 1 ( 1  )  >,<  GSRVCK 551  )  ,GTDA12( 1  )  ) , 

E  ( GSRVCT ( 50, > ,G7PA13< 1  ) ) , ! GSRVCK  651 ) ,GTDA14( 1 ) ) , ( GSRVCK 701 ) , 

F  G70A 1 5 ( 1  )  ) , (GSRVCT( 75 i ) .GTDAl 6( 1 ) ) , (GSRVCT! 801 ) ,GTDA17( 1 ) ) , 

G  (GSRVCK  851  )  .  GTDAl  8  (  1  )  ),  (GSRVCK  901  ),GTDA19(  1  )  ) ,  (  GSRVCK  95 1  ) , 

H  GTDA20V 1 ) ) .(GSRVCK 1001 ) ,GT0A21( 1 >  >,( GSRVCK 1051  )  ,GTDA22( 1  )  ), 

I  ( GSRVCT ( 1101 ) ,GTDA23( 1 ) >,< GSRVCK 1151 >.GTDA24( 1 ) >,! GSRVCK 1201 ), 

J  G-DA25< 1 > ) , ( GSRVCK 1261 > ,GTDA25( 1 )), (GSRVCK 1301 >,GTDA27( 1 ) ), 

K  (GSRVCK  1331  ',GTDA2S(  1  )  ), (GSRVCK  1401  ).GTDA29(  1  >  >, (GSRVCK  1451  ), 

L  GTDA301 1 ) ), (GSRVCK 1501 >,GTDA3!( 1 >  >, (GSRVCK 1551 >.GTDA32( 1  )  ), 

M  (GSRVCK  1601  .>  ,GTDA33(  1  )>,(  GSRVCK  1651  )  ,GTDA34(  1  )  >  .(GSRVCK  1701  }, 

N  GV3A35  <’  1  )),  (GSRVCK  1751  >,GTDA36<  1  >),  (GSRVCK  i301  ),GTDA37(  1  )), 

0  ( GSRVCT i 1851  . ,GTDA38<  1 > ) ,< GSRVCK 1901  ) ,GTDA39<  1  )  ), (GSRVCK 1951  ), 

P  GTDA40V  !>.',<  GSRVCK  2001  >  ,GTDA4  1  (  1  )  )  ,  (GSRVCK  2051  )  ,GTDA42(  1  >  ) , 

Q  <  GSRVCK 2101  ■  ,GTDA43(  1  '  > , ( GSRVCT! 2151  )  ,GTDA44( 1  )  ) , (GSRVCK  2201 ) , 

R  GT9A45-  1  '  ) , (GSRVCK  2251  > ,GTDA*5( 1  )  > . (GSRVCK  2301 > ,G7PA47( 1 ) ) , 

S  ( GSRVCK  2351  > ,GTDA43( l i > , < GSRVCK  2401  ) .GTDA491 1  )  )  , ( GSRVCK  24  51  /  , 

T  G~DA50< 1 ) ) 


DA  A 
DA  "A 
DATA 
DA"A 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
DATA 

'Jr\  .  r, 

DAT! 


3  D  3 

22  3 
2  7'. 
2  CU 
2  * 
DAT, 


MINU3/6 
T  C  D  3  D  r 
TOTEM 
TCH3DF  , 
RUDSD7  . 
RUK30F  , 
ACL NO  V 
EGCIO  V  , 
TFOPF  ,7 
ATDSDV 
F  P  D  F ,7, 
FLTFCT 
F  ; )( K  C  T  / 
WRKr'CT 
APSP01/ 

.8.  4 

.0.  4 

.0,  2*3 

.  1  .  2 

.0.  2 

57.2.  32 
APSPD2/ 

29.2, 

.6.  310. 


8H - / 

/  9.0  /.TCTSDF  /  422.0  /,  TCVSDF  /  12.5  / 

/  120*0.0  /  ,  TOTEVP  / 10*0 . 0  / 

TCHODF .TCDYDF .TCDZDF  /  4*  10.0  / 

RUTSOF .RUVSDF .TFHBDF .TFHODF  /  5  *  0.0  / 

RUHODF,  RliDVDF ,  R'JDIDF  /  4  *  5.0  / 

/  20.0  /.ACLNDZ.EGCKDZ,  ARDSDZ  /  3  *  8.0  / 

ACMLPL  /  2  *  100.0  / 

FDZDF .TFDVDF  /2.5E4.  30.0,  30.0  ! 

/  10.0  /,  ATDSDZ  /  2.0  /  ,  NP ITS  / 
TDDFLT.RFDFLT.SFDFlT.PFDF IT.TF07LT/1 
/  1.00,  0.9C,  0.93,  .6.79,  0.89,0.33,  0.33  / 

.024,  .02.,,  .0255,  .019.  .021.  .020.  .020  / 

/  0.3.  0.32*.  0.313.  0.276.  0.31,  0.295.  0.295  / 
2*325.2,  2*403.  ,  420.6.  433.9.  402.3, 

433.3,  540.7,  437  2. 

256.0,  371.0,  252.0, 

219.4,  274.3, 

256.0,  548.7, 

329.2.  471.8, 


5/  , ITAPE/2I/ 

2 , 1 .0,0. 1 , 3*1.0/ 


S2.7, 

57.2, 

29.2. 
7s.  1  . 
*219. 
92, 

0.  , 

332  .  S 


402 . 3 , 
222.39, 
334.0, 
329.2, 

4,  274.3, 

222.0,  0.0, 
2*310.9, 
329.2, 


274.3, 

324.0, 

433.9, 


9,  222.39,  219.4, 


0.0,  231.65,  2*0.0,  433.9 
2*233.,  329.,  31Q..9, 

310.9,  355.8.  229.2. 

341.0,  252.0,  204.0, 
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3  2*310.9,  315.0,  201.1,  4*219.4,  237.7,219.4, 

4  365.8,  204.0,  150.0,  2*201.1,  219.4,  310.9. 

5  329.2,  310.9,  2*329.2,  259.7,  204.0,  0.0,  0.0,  231.65, 

6  2*0.0,  310.9  / 


DATA 

A3CNT i /  0. . 

2*5.,  2*4. ,5 

. ,2*6. 

.  6.5 

,  8.  , 

2*6.  , 

15.. 

7. ,  6.5.2*10. .5. ,  4. ,  5. , 

4.  , 

2  2*4 

.6,  2*6., 

4*5..  6 

•  * 

2*5.  , 

6., 

4., 

3  3*6 

.  ,  5 . ,  6,5-  6 

..  2*7.,  2*4., 

0.  .  0. 

,  12.. 

2*0.,  6. 

/ 

DATA 

ASCNT2/  0.0 

,  2*5.5,  2*8.0, 

7.8, 

8.2, 

12.0 

.  9. 

1  8  2 

,  12.9,  12.7 

,  9.1,  12,0,  11 

.25,  10.0,  13 

*  5 ,  6.1, 

2  11. 

2,  11.4, 

10.0,  2*5,2, 

1  r .  3 , 

6.0, 

8.6, 

10 

.3, 

3  2*7 

.0,  5.3, 

6.0,  9.1, 

7.5, 

6.0, 

2*6.0, 

9. 

0,  5. 

4  9.3 

,  12.7,  2M2 

.  ,  11.2,  10. ,  0 

..  0., 

12.  ,  0 

0.,  12.7 

/ 

DATA 

APPHT2/  0,0 

,  2*. 22,  2* 

.  16 , 

.18,  . 

21,  .22 

1  • 

13, 

1  .  12 

,  .22,  .20. 

.07,  .15,  .20. 

.17,  . 

3.  .08. 

.27, 

2  . 25 

,  .23.  2*. 

18,  ,29,  .18, 

4*. 21 

.  .29, 

2*. 06, 

.13, 

3  •  4 , 

2*. 17,  .21, 

.22.  .13,  .2, 

2*. 15, 

.27,  . 

23,  0., 

0.  , 

4  .762,  2*0..  .2 

/ 

DAT., 

D3CNT1/  0.0 

,  2*2.5,  2*8. 

0,  3. 

5,  4.0 

,  3.5, 

2*4. 

0, 

12*3. 

5,  3.0,  3.5, 

5.0,  3.5,  3.0, 

5.5, 

2*3.0, 

3.5.  2*2 

.5, 

3.5, 

2  4.0 

,  4*3.5.  4 

.0 ,  5.6,  3.0, 

4.3, 

10.0, 

2*4.0. 

3. 

5, 

3  2.5 

,  4.,  3.5,  2*3.5,  3.,  3.5, 

0.  ,  0. 

0,  13.. 

2*0.,  3 

.5 

/ 

DATa 

DSCHT2/  0.0 

,  4*2.5,  3.0, 

3*3. 

5,  2.5 

,  3.5, 

3.4 

1 

1  2-2 

.5,  3.4,  2*3 

.0,  12*2.5,  3.0 

,  2*2. 

5 ,  3.0, 

2  3.. 

4*2.5,  3.5, 

3.4,  4*2.5,  0. 

,  0.0, 

13.,  2*0.,  3.4 

/ 

DATA 

COHT1 /  0.0, 

2*. 33.  2*. 60 

,  .32 

,  .47, 

.30, 

.36, 

.52, 

1  2*. 

30,  .13,  .34 

,  .30,  .91,  .90 

,  ,20. 

.18,  . 

27. 

2  .20 

,  2*. 30,  . 

25,  .10,  .25, 

.22, 

.21. 

.25,  . 

23, 

.20. 

3  .13 

,  .30,  ,50, 

2*. 17,  .27, 

.33. 

.36, 

.30,  2* 

.34, 

.18. 

4  .20 

,  0. .  0. ,  .7 

62,  2*0..  .3  / 

DATA  LNDSPD/  0.0,  2*296.,  2*203.,  2*278.,  296.,  314.,  332. 

1  296..  287.,  239.,  258.,  287.,  241.,  203.86,  166.,  227., 

2  212.0,  185.0.  2*296.0,  240.0,  148.0,  4*166.0,  185.0,  148.0, 

3  2«0.,  203.,  4*ill.,  296.,  296.,  314.,  297.,  258,,  227., 

4  185.0,  0.0.  0.0,  213.68,  2*0.0,  287.0  / 

DATA  C0SPD1/  0.0,  2*369.,  2*582.,  450..  585.,  549., 

1  592.,  3*554.,  556.,  554.,  648.6,  463.,  370.65,  366., 

2  324.0,  252.0,  239.0,  2*331.0,  297.0,  210.0,  2*256.0,  2*250.0, 

3  300.,  366.,  556,,  349.,  150.,  2*201.,  329.,  369., 

4  592.,  3*554..  399.,  239.,  0.,  0.,  833.94,  2*0.,  554.  / 

DATA  C0SPQ2/  0.0,  2*558.,  Z*582.,  499.,  653.,  549., 

1  653.,  3*554.,  556,,  554.,  640.,  463.,  370.65,  439., 

2  463.0,  252.0,  463,0,  2*481.0,  463,0,  219.0,  2*402.0,  377.0, 

3  242.,  450.,  457.,  556.,  450..  200,,  2*219.,  439., 

4  553.,  653.,  2*554.,  499.,  463.,  0.,  0.,  833.94,  2*0.,  554, 

Data  TOSPD/  0.0.  2*257.,  2*212.,  296.,  2*314.,  365., 


1 

342. 

t 

296..  3 

14.  , 

287 

.,  283. 

,  314.  , 

263.  , 

222.29, 

2 

185 

0. 

,  263.0, 

260 

.0, 

215.0, 

2*305.0 

,  250.0 

,  169.0.  183.0 

3 

133 

0, 

,  170.0. 

185 

.0, 

223.0, 

168.0, 

287.0, 

206.0.  129., 

4 

•>  m  •  ' 

:s, 

130. 

.  267.. 

366.  , 

314.  , 

2*283 

.,  234., 

5 

21a 

0.0.  0 

.0, 

346. 

55,  2*0 

. ,  314  . 

/ 

DATA 

SP.TUPT/  0 

.0, 

4*10 

.0,  2*6 

.  1  ,  3.0 

,  5.0. 

6.1, 

1 

3  .  . 

6. 

.4,  5. . 

6.2, 

7.5 

.  15.  , 

10.  ,  8. 

,  10.0. 

3.2, 

2  2.-J.  10. it,  20.0,1 0.0,  2.0,  2*15.0,  3.2,  2*2.5,  3.8.  5.2, 

3  2.3,  3.0,  '.0.0,  20.0.  15.0,  10.0,  5.0,  6.4,  2*6.2, 

4  2..  2.3,  0.0.  0.,  16.,  2*0.,  5.4  / 

DATA  EGCHKT/0.0,  2*10.0, 2*. 1,  .5,  2*2.0,  2*. 3,  2.0, 

1  .3,  .75,  1.4,  .125,  2.,  0.3.2.,  2* . 1 , 5 . , 10. , 2 . 5 , 

2  .5,  2*3.,  2* .  1  ,  .3,  .5,  .3,  .1,  4*2.,  10.,  2*. 3, 

3  2*1.4,  .1.  5..  0.,  0..  .33,  2*0.,  .3  / 

DA"A  SHTDNT/  0.0,  2*4.8,  2*0.5,  1.0,  2*2.0,  0.5,  0.8, 

1  .4.  .66.  1.3.  .25,  3.,  5.,  2*2.,  .3,  2.5.  2*4.5, 

2  1.3.  1.0,  2*2.0.  .3,  .5.  .4.  .6.  .7.  .3,  4*2.0, 

3  4.2,  .5.  .4,  2*1.3,  2.,  2.5,  0..  0.,  12.,  2*0..  .4  / 


1  , 
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DATA  TOWT  /  0.0,2*340. 

,2*45.,  36., 

45. 

,  30.  , 

20.,  45., 

1 

33.,  50.,  18..  75..  42. 

,  30. ,  35 .  , 

11.  , 

712.5,  102.0, 

2 

155.0,  2*220.0,  323.1, 

24.0,  4*50.0 

.  14. 

0, 

3 

6.,  12.,  14.,  4.5, 

4.5,  4.5, 

1  1  . 

* 

4 

340.0,  20.,  50.,  2*75., 

520.,  155., 

0.  , 

0. ,  33.  , 

2*0.,  50. 

DATA  TXISPD/  0.0,  2*12. 

0,  2*27.0, 

9.9, 

2*24.0, 

9.2,  12.0 

1 

34.,  37.,  25.,  12.9,  37 

. 1 ,  37. ,  32. 

432, 

22.,  15.9 

2 

32.5,  8.5.  2*13.3,  24.3 

,  35.0,  2*27 

.0,  23.6,  17.1 

,  34.2, 

3 

22.3,  21.8.  37.5,  3*27.0,  34.0, 

12. 

0,  9.2, 

37.0,  2*12 

4 

15.9,  8.5,  0. ,  0.,  55. 

6,  2*0.,  37. 

/ 

DATA  ENGNO  /  4,  2*8, 

2*2,  1. 

2 

,  3*1 , 

1 

1,  4*2. 

1.  2*2, 

4 

,  2, 

2 

4*4,  2, 

4,  4.  2*2, 

1  , 

3 

3*2,  2*1, 

2*2, 

3 

8. 1,2, 2, 2, 4, A, 0,0, 1.0,0 

,2, 

4 

2,  2*4, 

7*1, 

5 

S*l,  2, 

1. 

6 

4*2,  1, 

2.  2.  2*1, 

1, 

7 

7*1. 

8 

4, 1  , 1  ,  1  , 1 ,2.2, 0,0, 1 ,0,0 

,1  / 

DATA  APPHT.CLMBHT  /  2*  0 

.9144  / 

DATA  EGNAME/3H0  79-G15, 

3H057-P218, 

8HJ57-59W  , 

8HTF33-P3  , 

A 

8HTF30-P7  , 

3HJ  85-5  , 

8H075-P 1 7  , 

8HTF39 

B 

6HT  56-A7  , 

8HT  76 

3H0470 

8H0360 

C 

3HJ57-P43W, 

8H069-T25  , 

8HJ7S-G 1 7  , 

8HTF30P 100, 

D 

SHTF34- 100, 

8HTF41 

8HF 

1 00 

8HF101 

E 

8HT  56-A1S, 

8HTF39  LS  , 

8HJ60-P5B  , 

BHD-33 

F 

eHJT-80 

8HR-4360  , 

8HR 

-3350  , 

8HJ57-P19V, 

G 

SH075-19W  , 

8HTF30-P3  , 

8HTF33-P7  , 

8HD79-G 1 5* , 

H 

8KTF33-P3", 

3HTF  33-P3* , 

3HJ 

85-5*  , 

8H0360* 

I 

8H079-G 17*, 

3H057-P  42* , 

0  12*8HUNASSGND  / 

DATA  ACNAME/3HB- 1  ,8HB  52D/F  ,8HB  52  H  ,SHB  57A-E  , 

A8HB-57  F  .Sh1"  1 00  ,8HF  101  ,3HF  102  ,SHF  104A  ,  8HF  105 

BOHF  106  i SHF  4-C/F  ,8HF  5  ,8HF  111  A  ,SHF  15  ,8HA  7  . 

CGHA  10  ,3hA  37  ,8HC  5A  ,3HC  9A  ,8HC  130  ,  8HKC  135A 

DGHC  1 35G  , 8HC  141A  ,8HC  7  ,SHC  121  ,8HC  97  , 8HC  119 

E3HUMASSGND , 3HT  33  ,8HT  37  ,3HT  38  ,8HT  39  ,8HT  41 

F8HO  1  • 8 HO  2  ,SHOV10  .8HB-52G  .8HF104C  , 8HF  4  E 

G3K"  111  0/E, 3 H Fill  F  .8HC-5  IS  ,8HC130  H  , 8HHDM 

H3H'JMASSGND,  SriF  16  ,  2*8HUNASSGND  ,  SHTRANSENT  / 

DATA  Pi. NAME  /4HCO  ,4HHC  ,  4HMOX  .  4HPM  ,  3HSOX ,  4H  / 

DATA  FLNAME/4HAM  G.4HDP  4.4HAC  G , 4HDESL ,  4H0P  5.4H0P  8.4H0ETA  / 
DATA  ALPHA  / 1 1 . 70365 , 1 1 . 1067 j ,  12.42382,  12.68759,13.687,13.038 
1,  13.024  / 

DATA  BETA  /  2863.54,  3129.5187,  3276.8848.  5108.4194,5329.139, 

1  4739.201,  4782 . 209  / 

DATA  F L 0 E N 3  /  0.695,  0.773,  0.693,  0.842,  0.824,  0.607,  0.807  / 
DATA  PPEMFC  /.5,  1.,  5..  45.,  .5,  1.,  5..  45.,  .4.  .5.  .5, 

1  .6.  272..  272.,  320.,  320.,  .19,  .18,  .24,  0.,  .23.  0. ,  .15,  .5, 

2  1. 5, 10. 0.0. 01 5, 0.1. 0.1. 1.25, 0.25, 0.35, 0.35, 0.35, 640. 0,640.0, 

3  129.0. 12'4  .0.0.48,0.45,0.096,0.0.0.081  ,0.0,9 .0,7. 5, 3.0, 1 . 5,  13.8, 

4  4. 6, 11. 5. 2.2.  12. 6, 7. 2. 7. 2,1 .5.5250.0,2810.0.1600.0,800.0, 1.45, 

5  1 .23. 1 .2 . .72. 1 . 12. .72.8. .6.5, 1 ., 10. ,8.5, 1 .. 1 . ,5. .40.36, 

6\ Ai .57,42. 14.310. , 150. . 160. , 160. , 160. , .22. .2, .23,0. , .22 ,0. , 

7  \  9. 0,19. 0.19. 0,19. 0,19. 19, 19. 19. 19. 19, 13. 32, 19. 19, 19. 19, 17. 19, 

3  ! 7 . 19, 4-171 42 .0, 3*0.00005 ,0. , .00003,0.0, 

9  22*  0.0  / 

DATA  EMKCIN  /  0.0,100.0.12.5,50.0.6.25.0.0.25.0,10.0,12.5,5.0. 

1  1.5,1. 0,1.5. 0.5, 0.75, 5. 0,15. 5, 4. 0,7. 5, 2. 0.0. 0,0. 75. 0.75, 0.35, 

2  0 . 35.  5*0.0  / 

0A“A  TFEMFC  /  560.,  320.,  4.15,  128.,  2*1.0  / 

OAT.-.  L'JEMFC  /  130  0,72.0,25.0.  1  1  .0. 1  .0.0.0,  14.0. 15.0,0.0.21  . 

1.12.0,4.7, 1.3. 0.17, 0.0, 2. 4, 23. 0.0.0, l7. 0.5. 3, 1.9, 0.76,0. 07 ,0.0, 


48 


1 1  •  ■ 

^  w  -  w 

r' 

■ 

r 

2  1.0, 

4. 0.0.0 

.  8 . 3 , 4 . 3 

'#•4,0. 16,0 

.03.0.0,0. 

2, 4. 7,0 

0,56.0,6.8,0.5, 

3  0.  i6 

,0.03,8 

.0.0.3. 1 

.4,0.0,  9* 

0.0  / 

< 

DATA 

EGDA01 

/  5? .0 , 

12.0, 

2.5, 

.5, 

1.0,  0.0, 

A 

14.2, 

1.8, 

4.1, 

1.4, 

1.0,  0.0, 

M 

2.2, 

,2. 

8.9, 

2.2. 

1.0,  0.0, 

. 

B 

4.0, 

.01, 

3.11, 

.150, 

1.0,  0.0  / 

BK 

DATA 

EGDA02 

/  72.0, 

60.0, 

2.3, 

.16, 

1.0,  0.0, 

R 

A 

15.7, 

4.2. 

4.3, 

.72, 

1.0,  0.0. 

r 

M 

2.0, 

.  1  , 

9.8, 

2.0, 

1.0,  0.0, 

r 

B 

4.0, 

.01, 

3.11, 

.150, 

1.0,  0.0  / 

DATA 

EGD.A03 

/S5.0, 

52.9, 

2.4, 

.13, 

1.0,  0.0, 

A 

32.5, 

14.2, 

3.3, 

.22, 

1.0,  0.0, 

M 

2.4, 

.2, 

11.3, 

.34, 

1.0,  0.0, 

8 

21.1, 

2.2, 

2.7, 

22.5, 

1 .0,  0.0  / 

DATA 

EGDA04 

/  84.0, 

107.0, 

1.8, 

.23, 

1.0,  0.0, 

.1 

A 

6.3, 

2.6, 

5.8, 

.99, 

1.0,  0.0, 

■ 

M 

1.7, 

,6, 

10.0, 

1.73, 

1.0,  0.0, 

' 

B 

1.7, 

.6, 

10.0, 

1.73, 

1.0,  0.0  / 

DATA 

EGDA0S 

/  53.0, 

30.0, 

3.0, 

.021  , 

1.0,  0.0, 

A 

11.5, 

3.2, 

6.1, 

.  12. 

1.0,  0.0, 

‘ 

M 

.8, 

.  1  , 

20.0, 

.35. 

1.0,  0.0, 

8 

4.0, 

.01  , 

3.11, 

.150, 

1.0,  0.0  / 

m 

DATA 

EGOA06 

/  178.0, 

30.0, 

1.3, 

.003  , 

1.0,  0.0, 

A 

73.6, 

6,4, 

1.8, 

.007, 

1.0,  0.0, 

M 

29.0, 

•  8, 

2.6, 

.01  a. 

1.0,  0.0, 

B 

26.04 

.  .07, 

1.99, 

.008  , 

1.0,  0.0  / 

DATA 

EGDA07 

/  86.0, 

72.0, 

2.3, 

.23, 

1.0,  0.0, 

A 

17.5, 

5.2, 

4.3, 

.44, 

1.0,  0.0. 

M 

1.3, 

-1  , 

12.0, 

1.08. 

1.0,  0.0, 

B 

4.0, 

.01. 

3.11, 

.150, 

1.0,  0.0  / 

T 

DATA 

EGDA0S 

/  67.0, 

23.0, 

3.0, 

.015, 

1.0,  0.0, 

.v 

A 

33.2, 

13.2, 

3.9, 

.016, 

1.0,  0.0, 

M 

.7, 

.2, 

28.0, 

.025, 

1.0,  0.0, 

B 

.5. 

.  1 , 

38.0, 

.025, 

1.0,  0.0  / 

» 

DATA 

EGDA09 

/  32.0, 

21.0, 

3.9, 

.93, 

1.0,  0.0, 

A 

22.2, 

12.4, 

4.4, 

.97, 

1.0,  0.0, 

M 

2.1  , 

.4, 

9.3, 

.50, 

1.0,  0.0, 

. 

B 

1.04, 

.21  , 

10.98, 

.50, 

1.0,  0.0  / 

8 

DATa 

EGDA10 

/  23.8, 

7.4, 

7.4, 

•  38 « 

1.0,  0.0, 

A 

17.2, 

.8, 

8.5, 

.50, 

1.0,  0.0. 

n 

2.3, 

.06, 

10.3, 

.71  , 

1.0,  0.0, 

B 

2.3, 

.06, 

10.3, 

.71  , 

1.0,  0.0  / 

DATA 

EGDA1 1 

/743 . 0 , 

191.0, 

1.1, 

60.0, 

.6,  0.0, 

A 

713.2, 

17.1. 

1  .0, 

45.5, 

.6,  0.0, 

1-1 

1160.0, 

20.4, 

y .  4 , 

20.0, 

.6,  0.0, 

B 

1160.0, 

20.4, 

9.4, 

20.0, 

.6,  0.0  / 

4 

DATA 

EG0A12 

/  848.0, 

145.0, 

1.1, 

60.0, 

.6,  0.0, 

A 

879.0, 

70.6, 

2.5, 

55.0, 

.5,  0.0, 

M 

1030. , 

22.5, 

5.3, 

20.0, 

.6,  0.0. 

3 

1030 . , 

22.5, 

5.3, 

20.0, 

.6.  0.0  / 

Dm  i  m 

EC DAI  3 

/  73.0, 

75.0, 

2.2, 

.14, 

1.0,  0.0, 

A 

24.0, 

9.2, 

33.2, 

.  293  . 

1.0.  0.0, 

M 

1.5, 

.  1  , 

1  1.0. 

1.74, 

1.0,  0.0, 

J 

B 

1.5, 

.  1  , 

1  1  .0, 

1.74. 

1.0,  0.0  / 

8 

' 

DATA 

EGDAI 4 

/  129.0, 

19.0, 

1.5, 

.  55  . 

1.0,  0.0, 

A 

106.9, 

11.1. 

1.7, 

.  22  . 

1.0.  0.0. 

A 

32.0, 

.  5  , 

3.6, 

.02, 

1.0,  0.0, 

B 

20.6, 

.02, 

5.91  , 

.02  . 

1.0,  0.0  / 

DATA 

E  GCA  1 5 

/  40.1, 

9.0, 

2.7. 

.23. 

1.0,  0.0, 

A 

-8.5, 

5.2, 

5.3, 

.  62  . 

1.0,  0.0, 

!1 

i .  a , 

.06  . 

14.8. 

2.22. 

1.0,  J.0, 

i 

3 

4.0, 

.01  , 

3.11. 

.  1  50 . 

"  1  .  0  .  0 . 0  / 

DATA 

EGDA15 

/  43.0, 

19.0. 

2.9, 

.02  , 

1.0,  0.0, 

r 

A 

9.9, 

2.7. 

b  .  3  ♦ 

.03  , 

1.0,  0.0. 

4 
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L  .  - 

_ 

/ 


PVBVBIWPJ 


4 


tn 

h. 

h 

L 

h 

1' 


1 


r 


rt 


B 


4 


4 


4 


M 

.7, 

.1, 

28,0, 

.24, 

1.0,  0.0, 

3 

4.0, 

.01  , 

3.11, 

.150, 

1  0,  0.0  / 

DATA 

EGDA17 

/  106.0, 

32.0, 

2.0, 

.04  , 

1.0,  0.0, 

A 

8.3, 

.6, 

6.8, 

.02, 

1.0,  0.0, 

M 

2.3, 

.1  . 

10.0, 

.05, 

1.0,  0.0, 

B 

2.3, 

.  1  , 

10.0, 

.05, 

1.0,  0.0  / 

DATA 

EGDA1 8 

/  119.0, 

92.0, 

1.5, 

.15, 

1.0,  0.0, 

A 

10.2, 

2,2. 

6.8, 

.36, 

1.0,  0.0, 

M 

1.8, 

.2. 

21.0, 

.67, 

1.0,  0.0, 

B 

1.8, 

.2, 

21.0, 

.67, 

1.0,  0.0  / 

DATA 

EGDA13 

/  24.0, 

3.2, 

3.3, 

•  12, 

1.0,  0.0, 

A 

5.8, 

1.9. 

6.7, 

.27, 

1.0,  0.0, 

M 

.9, 

.1, 

27.0, 

.34, 

1.0,  0.0, 

3 

4.0, 

.60, 

3.11, 

.150, 

1.0,  0.0  / 

DATA 

EGDA20/ 

57.2, 

12.0, 

3.5, 

.044, 

1.0,  0.0, 

A 

8.0, 

.2, 

8.4, 

.045, 

1.0,  0.0, 

M 

1.4, 

.2, 

24.0, 

.05, 

1.0,  0.0. 

3 

4.0, 

.01, 

3.11, 

.150, 

1.0,  0.0  / 

DATA 

EGDA2! 

/  18.1, 

15.1, 

2.4, 

.38, 

1.0,  0.0, 

A 

3.5, 

3.4, 

3.7,  *. 

.47, 

170,  0.0, 

M 

1.6, 

.2, 

11.7, 

•  71  , 

1.0,  0.0, 

3 

1.6, 

.2, 

11.7, 

.71, 

1.0,  0.0  / 

DATA 

EGDA22 

/  50.0, 

15.0, 

3.5, 

.04, 

1.0,  0.0, 

A 

A3. 4, 

14.5, 

4.6, 

.04, 

1.0,  0.0, 

M 

_  c 

.1  . 

40.0, 

.04, 

1.0,  0.0, 

3 

•  1  , 

40.0, 

.04, 

1.0,  0.0  / 

DATA 

EGDA23 

/  70,0, 

9.2. 

1.5, 

.02. 

1.0,  0.0, 

A 

50.5, 

5.6, 

1.7, 

.03, 

1.0.  0.0, 

M 

4.0. 

•  1  , 

4.6, 

.17, 

1.0,  0.0, 

8 

4  .0, 

.1, 

4.6, 

.17, 

1.0,  0.0  / 

DATA 

EGDA24 

/  127.0, 

19.5, 

1.5, 

.73, 

1.0,  0.0, 

A 

84. 6, 

6.5, 

1.9, 

.57, 

1.0,  0.0, 

M 

31.3, 

.5, 

3.6, 

.02, 

1.0,  0.0, 

8 

31.3, 

■  5, 

3.6. 

.02, 

1.0,  0.0  / 

DATA 

EGCA25 

/  50.0, 

9.6, 

2.0, 

.6, 

1.0,  0.0, 

A 

46.2, 

8.9, 

2.1, 

.78, 

1.0,  0.0, 

M 

1.2. 

.6, 

4.3, 

2.5, 

1.0,  0.0, 

B 

1.2. 

.6, 

4.3, 

2.5, 

1.0,  0.0  / 

DATA 

EGDA25 

/  743.0, 

191 .0, 

1  .0, 

60.0, 

.6,  0.0, 

A 

631.66, 

9.46, 

3.37, 

£0.0, 

.6.  0.0, 

M 

1160.0, 

20.4. 

11.1, 

20.0, 

.6,  0.0, 

3 

1160.0, 

20.4, 

11.1, 

20.0, 

.6,  0.0  / 

DATA 

EGDA27 

/  743.0, 

191.0, 

1  .0, 

60.0, 

.6,  0.0. 

A 

691.66, 

9.46, 

9.37, 

£0.0, 

.6,  0.0, 

M 

1160.0, 

20.4, 

11.1, 

20.0, 

.6,  0.0, 

B 

1160.0, 

20.4, 

11.1, 

20.0, 

.6,  0.0  / 

OATA 

EGDA28 

/  79.0, 

77.0, 

2.2, 

.16, 

1.0,  0.0, 

A 

7.9, 

1.4, 

5.8, 

.93, 

1.0,  0.0, 

M 

1.9. 

.  1  , 

i  1  .0, 

1.72, 

1.0,  0.0, 

B 

1.9, 

.  1  . 

11.0, 

1.72, 

1.0,  0.0  / 

DATA 

EGDA29 

/  62.0, 

38.0, 

2.6, 

•  23  , 

1.0,  0.0, 

A 

50.4, 

27.3, 

2.3, 

.25, 

1.0,  0.0. 

H 

1.5, 

0.3, 

10.0, 

1.04, 

1.0,  0.0, 

3 

1.5, 

0.3, 

>0.0, 

1.57, 

1.0,  0.0  / 

DATA 

EGO.^ 

/  72.0, 

62.0. 

2.3, 

.006  , 

1.0,  0.0, 

A 

9.2. 

2.1. 

4.8, 

.05. 

1.0.  0.0. 

M 

0.8, 

0,03, 

12.0, 

0.40, 

1.0,  0.0. 

8 

6.4, 

.01  , 

9.0. 

2.1, 

1  .  0  ,  0 . 0  / 

DArA 

EG DAB  1 

/  93.0, 

77.0. 

1.8, 

.11, 

1.0,  0.0, 

A 

13.7, 

3.6, 

3.3, 

.  39. 

1.0,  0.0, 

M 

0.8, 

0.03  . 

12.0, 

0.91, 

1.0,  0.0, 

8 

0.8  , 

0.03, 

12.0, 

0.S1  , 

1.0,  0.0  / 

DA’-A 

EGDA32 

/  57.0. 

12.0, 

2.5, 

.  5  . 

"  1.0,  0.0. 

A 

S  .  4  , 

1.1. 

4.8, 

1.8. 

1.0,  0.0. 

c 


1 


( 


a 


M 

M 

CM 

.2, 

8.9, 

2.2, 

1.0,  0.0, 

S 

4.0, 

.01 , 

3.11, 

.150, 

1.0,  0.0  / 

DATA 

EGDA33 

CO 

107.0, 

1.8, 

.23, 

1.0,  0.0, 

A 

7.1, 

3.1, 

5.4, 

.93, 

1.0,  0.0, 

M 

1.7, 

.6, 

10.0, 

1.73, 

1.0,  0.0, 

B 

1.7, 

.6, 

10.0, 

1.73, 

1.0,  0.0  / 

0A7A 

EGDA34 

/  84.0, 

107.0, 

1.8, 

.23, 

1.0,  0.0, 

A 

10.0. 

4.6, 

4.8, 

.78, 

1.0,  0.0, 

M 

1.7, 

.6, 

10.0, 

1.73, 

1.0,  0.0, 

B 

1.7, 

.6, 

10.0, 

1.73, 

1.0,  0.0  / 

DATA 

EGDA35 

/  178.0, 

30.0, 

1.3, 

.003, 

1.0,  0.0. 

A 

43.0, 

3.5, 

2.3, 

.011  , 

1 .0,  0  0, 

M 

29  .0. 

.8, 

2.6, 

.018, 

1.0,  0  .  .V  . 

B 

26.04, 

.07, 

1.99, 

.008, 

1.0,  0.0  / 

DATA 

EGDA36 

/  848.0, 

145 .0, 

1.1. 

60.0, 

.6,  0.0, 

A 

945.9, 

23.6, 

5.5, 

40.9, 

. 6 .  0.0 , 

M 

1030. , 

22.5, 

5.3, 

20.0, 

. 6 ,  0.0, 

B 

1030. , 

22.5, 

5.3, 

20.0, 

.6,  0.0  / 

0A7A 

EGDA27 

/  40.1, 

9.0, 

2.7, 

.23, 

1.0,  0.0, 

A 

27.7, 

6.2, 

5.5, 

.86, 

1.0,  0.0, 

M 

1.8, 

.006, 

14. e. 

2.22, 

1.0,  0.0, 

B 

4.0, 

.01 . 

3.11, 

.150, 

1.0,  0.0  / 

DATA 

EGDA3S 

/  78.0, 

75.0, 

2.2, 

.  14  , 

1.0,  0.0, 

A 

9.7, 

1.8, 

21.1, 

.52, 

1.0,  0.0, 

M 

1.5, 

.  1  . 

11  .0, 

1.74, 

1.0,  0.0, 

B 

1.5, 

.1  , 

1 1  .0, 

1.74, 

1.0,  0.0  / 

DATA 

EGDA39 

/ 

24*0.0 

/ 

DATA 

EG DA 40 

/ 

24*0.0 

!. 

DATA 

EGDA41 

/ 

24*0.0 

} 

DATA 

EGDA42 

/ 

24*0.0 

/ 

DATA 

EGDA43 

/ 

24*0.0 

/ 

DATA 

EGDA44 

/ 

24*0.0 

1 

DA7„ 

EGDA45 

/ 

24*0.0 

/ 

DATA 

EGDA46 

/ 

24*0.0 

/ 

DATA 

EGDA47 

/ 

24*0.0 

/ 

DATA 

EGDA48 

/ 

24*0.0 

/ 

DATA 

EGDA49 

/ 

24*0.0 

/ 

DATA 

EGDA50 

/ 

24*0.0 

/ 

DATA 

IDACEG/ 

20,28, 

4, 

6,23,  2,  2.  2,  1,23, 
7,32,  6,30,19,18,17,35,  8,25, 
9,  3,34,31,  9,27,26.27,50,24, 
14,35,23,12,11,36,10,13.15,27, 
16,16,22.21,50,50,19,50,50,  1 


OAT 

A  IEGABr  / 

1,1,1 

,0, 

1  .  1  ,  1  ,0 

,0,0, 

2 

0,0,0 

.0. 

1  .  1  ,0,0 

,1,1, 

3 

0,0,0 

,0, 

0,0, 0,0 

,0,0, 

4 

0,  1,0 

,0, 

1  ,0.1  ,0 

t 

5 

12*1 

/ 

D 

AT 

A  IACA3FV 

1,2*0, 

1  , 

0,  10*1 

,  I  4*0,  1 

* 

. 

0,  1 

.  6*0.  4*1 

,  7*0,  1 

/ 

DA~ 

A  IDRR/1. 

2,  3,  4 

.  5 

,  6,  7, 

8.  9,10, 

1  1 

,12 

.13 

,14,15.16,17, 

1  8 

l  1 

20,21 

,22.2 

3.24,25 

,25 

.27,28. 

29,30,31, 

*7 

v>  U 

.33 

,34 

,35,36,37,  2, 

Q 

2 

1  - 

.14.14,19. 

21  . 100, 

100 

.  47  ,  100 

,  100.  12 

/ 

0 

AT 

A  E  G  r 

F  /  1 

.311,2. 

72  , 

8 .929, 

32.238, 

-5 

1 

.063, 

2.5. 

7.693, 

36 

.  10, 

1.25, 

1  . 

55, 

7. 

90,  1 

2.133, 

4 

. 

2001  , 

3 . 79 

7,  7.436, 

7.436, 

.935, 

2 

.  1  ■ 

7  . 

258, 

33.4, 

6 

.  469  . 

1.000.  2.527, 

S.323  , 

1.552, 

3 

.  5 . 

12 

.943, 

53.7, 

3 

i 

.133, 

1.5. 

12 . 687 

,  1 

2.687, 

.725, 

.8 

27  . 

1  . 

967, 

1.967, 

A 

■  25  , 

yi  £ 

.50.  .90. 

.015.  .051, 

.  131  , 

.131 

. 

020. 

.040. 

.09,  . 

09  . 

385.  1.849. 

7  . 

779 

.  7.7 

79. 

4 

221  . 

.  228  . 

1  .055  , 

i  , 

095  , 

1.060,  3 

.3 

4  , 

9.82,  34 

.95. 

6 

943  , 

2.10. 

9.07  7, 

54 

.0, 

.  390, 

1  . 

250 

.  2 

.552, 

-2.562. 

8 

\  . 

009  . 

w  •  0  • 

3.419, 

G  . 

419, 

1.417, 

3 

.0. 

10 

.  325  . 

46.010, 

3 

J. 

0.  . 

0.  . 

0. 

.493  , 

. 

227 

0, 

2.392 

.  2. 352, 
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2  1.134,  1.5,  12.687.  12.637,  .463,  .520,  2.467,  2.467, 

4  1.2,  2.00,  5.525,  5.525,  .959,  1.50,  8.755,  8.755, 

5  .1403,  .7939,  1.218,  1.218,  .107,  .610,  .936,  .936, 

5  .950,  3.375,  7.469,  7. <-69,  1.552,  1.709,  13.604,  36.010, 

C  .350.  2.10,  6.148,  33.4,  1.067,  2.50,  8.711,  8.711, 

2  1.130,  3.50,  8.929,  32.24,  .90,  3.550,  7.436,  7.436, 

4  .900,  3.0,  7.436,  7.436,  .453,  1.462,  2.630,  8.323, 

6  .03,  .062,  .09,  .09,  1.060,  3.5,  9.820,  34.950, 

8  .986,  3.0.  7.779,  7.779,  48*0.0  / 

DATA  THNAM2/8HIDLE  , 8HAPP ROACH , 8HMI L ITARV , 8HAFTER  BR/ 

DATA  MONAM1/8HIDIE  ,8HTAXI  , 8HENGINE  C,3HRUNWAV  R, 

1 SHCL IMS  1  , 3HCL IMB  2  , 8 HAP P ROACH , 3HAPP ROACH , 8 H LAND  1 NG  .3H  / 

DATA  MONAM2/2*4H  ,  4HHECK ,  4HOLL  ,2*4H  ,4H  1  ,  4H  2  , 

i 2*4H  / 

DATA  NSFLS/4/ 

DATA  ISF MAP/7, 2, 5, 4,0/ 

DATA  GCNAME/8HHEATER  ,8HCOOLER  , 8HGENERATR , 8HCMPRESOR , 

1  8HTST  STND.8HBOMB  LFT ,  3HL. IGHT  ST , 8HLEAK  TST, 

2  SH , JACK  MAN , 6*SH  / 

DATA  GSNAME/ 

1  5HH 1  .SH1H1  ,8H  , SHMA3  ,SH 

2  8hMD3  , SH90G20P  , 8HAM32A601 , 8H  , 8HMC 1A 

3  SHMCll  , 3HMC2A  ,8H1MC1A  , 8HMA1 A  ,8H 

4  SHTTU228E  ,8HMJA  , 8HMJ2A  1  , 8H 1TTU22 1 3 , EH 

5  3HMJA  .8HMJ1A  , 8HMHUB3AE  ,8H  , 8HNF2 

6  8H  , 2HM32T1  ,8H  .8HM27M1  ,8H 

7  20*8H  / 

DATA  IGSCAT/1 , 1,0, 2, 0,3, 3, 3, 0,4, 4, 4, 4, 4, 0,5, 5, 5, 5, 0,6, 6, 6, 0,7, 

1  0,8. 0,9, 0,0, 0,0, 0,0. 0.0, 0,0, 0,0, 0,0, 0,0. 0,0, 0,0,0/ 

DATA  IGSFIT/ 1,2, 0.1, 0.1, 2, 2, 0,1, 1,1, 2, 2, 0,1, 1,1, 2, 0,1, 1,1, 0,1, 

1  0, 1 ,0, 1 ,0,0. 0,0, 0,0, 0,0, 0,0, 0,0. 0,0, 0,0, 0,0, 0,0,0/ 

DATA  GSFF/ 3. 3. 2. 5, 0.0, 6. 2 ,0.0, 6. 7. 2. 6, 24. 6, 0.0, 1.6, 

1  1.3,1.1,1.4,16.2,6.3.5.0,7.8,4.7.0.0,1.2, 

2  1.2,1.0,0.0,1.1,0.0,3.3,0.0,2.6.21*0.0/ 

DATA  GSDA01 / 

A0 . 3656E  +00 , 0 . 5436E -01 ,0. 1718E-01 ,0. 1 564E-02 ,0 . 5385E-03 .0.0000E+00/ 
DATrt  GSDA02/ 

A0.2560E-01 .0. 1 120E-01 ,0. 1 1 64E+00.0. 8400E-02 ,0 . 2920E-02 .0.0000E+00/ 
DATA  GSDA02/6*0. / 

DATA  GSDA04/ 

A0.324SE+01 ,0. 126  IE +00, 0.841 9E-0! ,0. 5405E-02 ,0. 5270E-03 .0.0000E+00/ 
DATA  GSDA05/6X0. / 

DATA  GSDA06/ 

A0.3217E+01 .0. 1248E+00.0.8333E-01 ,0. 5333E-02 ,0. 5200E-03 .0.0000E+00/ 
DATA  GSDA07/ 

A0. 9S00E-01 .0.4300E-01 ,0. 4517E+00.0.3233E-01 ,0. 2933E-02 .0.0000E+00/ 
DATA  GSDA08/ 

A0.6252E-01 .0.5185E-03.0. 1230E-01 ,0. 1 667E-02 ,0. 2926E -02 .0.0000E+00/ 
DATA  GSDA09/ 6*0 . / 

DATA  GSDA10/ 

A0 .246EE+01 .0.SS26£-01,0.S421E-01 , 0 . 4053E -02 , 0 . 6840E -03 .0.0000E+00/ 
DA “A  GSDA11/ 

XI.  :  i2 02+0'.  .0. 4309E-01  ,0. 3697E-01  .0 . 2333E -02 . 0 . 3940E -03  .0.0000E+00/ 
DATA  GSDA12/ 

A3.  1-j44E+01 ,0.  10332+00.0. 3267E-01  .0 . 2933E -02 . 0 . 5270E -03  .0.0003E  +00/ 
DA”  A  Go  DA  2/ 

A.J.  2 42  IE -Cl ,0.3 42  IE -01 .0.6737E-01 ,0 . 1 260E -0 1 . 0 . 2947E -02 , 0 . 0000E +00/ 
DA"A  3SDA1 

A3. 5248E-.J1  . 0 . 5  1 94E  -03 , 0 .  1233E-01  ,0.  1  628E -02 . 0 . 2S46E -02 , 0 . 0000E  +00/ 
DAT.;  GS9A15/ 6*0./ 

DATA  GSDA16/ 

A0. 3673E+01 .0.1 432E-00.0.9524E-01 . 0 . 6032E -02 , 0 . 5 4002 -03 .0.0000 E-00/ 
DATA  GSDA1VV 

A..T .  2  i  4CE -  D  1  ,0.  1  2S0E+00 .0 . 8  1  3  1 E-01  ,0. 5 1 90E-02 . 0 .£ i 542-03 , 0 .0000E+00/ 


DATA  GSDA1 8/ 

AJ . 3360E+01 ,0. 1388E+00.0.9231E-01 ,0. 5846E-02 ,8 . 5230E-03 .0.0000E+00/ 
DATA  GSDA19/ 

A3 .14602*00.0. 6420E-01  ,0. S750E+00 ,0. 4820E-01 , 0 . 4370E-02 .0.0000E+00/ 
DATA  GSDA20/6*0. / 

DATA  GSDA21/ 

A0.2S02E+01 ,0. 9000E-01 .0.6778E-01 .0. 4333E-02 ,0 . 4390E-03 ,0.0000E*00/ 
DATA  GSDA22/ 

A0. 3904£*01 .0. 1350E+00.0. 1017E*00,0.6500E-02,0.6580£-03,0.0000E*00/ 
DATA  GSDA23/ 

A0 . 3346E+01 ,0. 1 157E*00. 0.871 4E-01 ,0. 557 1 E-02 ,0. 5640E-03 .0.0000E+00/ 
DATA  GSDA24/6*0. / 

DATA  GSDA25/ 

A0 .1761E ♦01.0.1 107E+00.0 . 3500E-01 .0 . 31 43E-02 ,0. 5286E-03 ,0.0000E*00/ 
DATA  GSDA26/6*0. / 

DATA  GSDA27/ 

A0. 4  580E ■*•01  ,0. 1339E*00,0.  1213E*00,0. 7609E-02.0.5220E-03,0.0000E*00/ 
DATA  GSDA28/o"0.  / 

DATA  GSDA2S/ 

A0 . 20822*01 .0.7238E-01 ,0. 538 1E-0 1 ,0. 338 1 E-02 ,0. 5240E-03 .0.0000E+00/ 
DATA  GSDA30/6*0. / 

DATA  GSDA3 1/6*0./ 

DATA  GSDA32/6*0 . / 

DATA  GSDA33/o"0./ 

DATA  GSDA34/6*0./ 

DATA  GSDA35/6-0./ 

DATA  GSDA36/6*0 . / 

DATA  GSDA37/6*0 . / 

DATA  GSDA38/6*0. / 

DATA  GSDA39/6T0. / 

DATA  GSDA40/6*0 . / 

DATA  GSDA4 1 / 6*0 . / 

DATA  GSDA42/6*0. / 

DATA  GSDA42/6*0. / 

DATA  GSDA4i/6*0./ 

DATA  G3DA45/6*0. / 

DATA  GSDA46/ o”0. / 

DATA  GSDA47/6*0 . / 

DATA  GSOA48/6*0 . / 

DATA  GSCA43/6*0. /  , 

DATA  GSDA50/6*0. / 

DATA  GTOA0 1 / 50*0 . 00/ 

DATA  GTDA02/2. 69,2.69, 0.00, 2. 20, 0.00, 3. 11 ,5.61 ,5.06,0.00, 1 .03, 

1  0.00,0.37,1.03,2.20,0.00,0.09,0.09,0.00,0.09.0.00, 

2  3.25,3.25,1.37,0.00,3.36,0.00,0.00,0.00,0.40,0.00, 

3  20*0.00/ 

DATA  GTDA03/ 2. 69, 2. 6 9, 0.00, 2. 20, 0.00, 3. 1 1,5.61,5.06,0.00,1.03, 

1  0.00,0.37,1.03,2.20,0.00,0.09.0.09,0.00,0.09,0-00, 

2  3.25,3.25,1.37,0.00,3.36,0.00,0.00,0.00,0.40,0.00, 

3  20*0.00/ 

DATA  GTDA04/50*0 .00/ 

DATA  GTDA05/ 50*0 . 00/ 

DATA  GTDA05/ =0*0.00/ 

DATA  GTDA07/5.''*0 . 00/ 

DATA  GTDA0S/  50*0 . 00/ 

DATA  GTDA09/30*0.00/ 

DATA  GTDA 10/0. 70, 0.70. 0.00, 0.00, 0.00, 0.53, 0.00, 1.10,0.00,0.56, 

1  0.00,0.33,0.58,0.03,0.00,0.00,0.00,0.30,0.00,0.00, 

2  0.00,0.00,0. 00,0 . 0U ,1.25 .0.00,0 .30,3. 00,0.00,0. 00, 

3  20*0.00/ 

DATA  GTDA 1 1/0. 70,0. 70,0.00.0.53 ,0.00.0.53,0.00,0.00,0.00,0.00, 

1  0.53,0.33.0.00,0.00.0.00,0.00.0.30,0.30,0.00,0.00, 

2  0. 00, 0.00,0. 2 i, 0.00, 1 .25.0.00,0.04,0.00,0.00.0.00, 

3  20*0.00/ 
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DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DA  "A 


DATA 


GTDA1 2/0.70,0. 70,0.00, £.5  3,0.00, 0.53, 13. OB, 1 , 10, 0. 00,0. 58, 
0.00,0.33,0.58,0.09,0.00,0.30,0.00,0.00.3.30,0.00, 
0.52,0.52.0.24,0.00.1.25,0.00.0.04,0.00,0.00,0.00, 
20*0.00/ 

GTDA1 3/0. 70, 0.70. 0.00,0. 53,0.00,0.53,0.00, 1.10,0.00,0.58, 
0.00,0.33,0.58,0.09.0.00,0.00.0.00,0.00,0.00,0.00, 
0.00,0.00,0.00,0.00,1.25,0.00,0.00,0.00,0.00,0.00, 
20*0.00/ 

GTDA1 4/0. 70, 0.70, 0.00, 0.00, 0.00, 0.53. 0.00, 1.10,0.00,0.58. 

0.00,0.33,0.53,0.00.0.00,0.00,0.00,0.30,0.00,0.00, 

0.52,0.52,0.24,0.00,1.25,0.00,0.04,0.00,0.00,0.00, 

20*0.00/ 

GTDA 15/0. 70, 0.70, 0.00, 0.00, 0.00, 0.00. 0.07, 1 .10,0.00,0.58, 
0.00,0.33,0.58,0.00,0.00,0.30,0.00,0.00,0.30,0.00, 
0.00,0.52,0.24,0.00,1.25,0.00,0.04,0.00,0.00,0.00, 
20*0.00/ 

GTDA 15/0. 23. 0.23. 0.00, 0.00, 0.00, 0.00, 3. 50, 4. 41 ,0.00,0. 10, 
0.00,0.16,0.10,0.67.0.00,0.14,0.00,0.00,0.14,0.00, 
2.11,0.00,2.04,0.00.0.23,0.00,0.13,0.00,0.00,0.00, 
20*0.00/ 

GTDA 17/0. 23, 0.22, 0.00, 0.00, 0.00, 0.25, 0.00, 4. 41 ,0.00,0.10, 
0.00,0.16,0.10,0.03,0.00,0.00,0.00,0.14,0.00,0.00, 
0.00,2.11,2.04,0.30.0.23,0.00.3.13,0.00,0.00,0.00, 
20*0.00/ 

GTDA 18/0. 23, 0.23, 0.00. 0.00, 0.00. 0.25, 0.00, 0.00, 0.00,0. 10, 
0.00,0.15,0.10.0.00,0.00,0.00,0.00,0.00,0.00,0.00, 
2.11,0.00.2.04,0.00,0.23,0.00,0.00,0.00,0.00,0.00, 
20*0.00/ 

GTDA1 9/3. 21 .3.21 ,0.00. 1.33.0.00,3.12,7.60,3.85,0.00,0.75, 
0.00.0.92.0.75,0.46,0.00,1.18,1.18,1.18,1.18,0.00, 
0.00,0.00,0.00,0.00,3.18,0.00.0.00,0.00,0.38,0.00, 
20*0.00/ 

GTDA20/ 3.21 ,3.21 .0.00,3.00.0.00,3.12,0.00,0.00,0.00,0.75, 
0.00,0.00,0.75,0.00,0.00,0.00,0.00,0.00,0.00,0.00. 
0.00,0.00.0.00,0.00,3.18,0.00,0.00,0.00,0.00,0.00, 
20*0.00/ 

GTDA21/3.21 ,3.21 ,0.00, 1.33,0.00,3.12,0.00,0.00,0.00,0.75, 
0.00,0.92.0.75,0.46.0.00,1.18,1.18.1.18.1.18,0.00, 
0.00,0.00,0.00,0.00.3.18,0.00,0.00,3.00.0.38,0.00. 
20*0.00/ 

GTDA22/2 .87,2.87 ,0.00,0 .78,0. 00, 5 . 16,5.91,4.68,0.00,0.49. 

0.00,0.32,0.49,0.31.6.00,0.12,0.12,0.12,0.12,0.00, 

0.00,0.00,0.00,0.00,4.66,0.00,0.00,0.00,0.19,0.00, 

20*0.00/ 

GTDA23/3.21 ,3.21 .0.00,1.33,0.00,3.12,7.60,3.85,0.00,0.75, 
6.00.0.92,0.75,0.46,3.00,0.00,1.18,1.15,0.00,0.00, 
3.00,3.00,0.00,0.00,3.18,0.00,0.00,0.00,0.38.0.00, 
20*3.00/ 

GTDA24/3. 21 .3.21,0.00,1.33.0.00,3.12.7.60,3.85,0.00,0.75, 
0.00,0.93.3.75,0.46.0.00,1.18.1.18,1.18.1.18,0.00, 
0 . 00 , C . 00 , 0 . 00 , 0 . 00 . 2 . 1 8 , 0 . 00 , 0 . 00 , 0 . 00 , 0 . 3  3 , 0 . 00 , 
20*0.00/ 

6TDA25/'  -■.21,3.21.3. 03 ,1.33.0. 03 , 3  .  12.0.00,0. 00 ,0.00,0.75, 
.9. 00, 0.92, 0.75, 0.0'.'. 0.00, 0.00, 1 .18,5.00.0. 03  .  .3 . 00 . 
0 . 00 , 3 . 00 , 3 . 00  .  a .  00 , 2  .  1  8 . 0 . 00 . 0 . 0.3 . 0 . 00 , 0 . 00 , 0 . 00 , 
20*0.03/ 

GTDA25/2 . 2 1 ,3.21.0.30,0.03.0.00,3.12.0.00,0.00.0.00,0.75, 
C . 00 . 0 . 00 . 0 . 7  5 , 0 . 00 . 0 . 03 . 0 . 00 , 0 . 00 . 0 . 00 , t . 00 , 3 . 03 , 
0.00,0.00.0.00,0.00.3.18,0.00.0.00,0.  .30 ,5.00,0.00, 
2.3*3 . 03/ 

GTDA27/3 . 21 ,3.21.0.03.0.00.0.00,3.12,0.00.0.00,0.30,0.75, 
5. 00. 0.03. £.75, 0.00. 0.00.0. 50 .0.00,3.00.0.00,0.00, 
0 . 03 , 0 . 00 . 0 . 00 , 3 . 30 , 3 . 1 8 , 0 . 00 , 3 . 03 , 0 . 50 . 3 . 00 , 0 . 30 . 
20*3.00/ 
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DATA  GTDA28/3.21 ,3.21  ,0.00,0.00,0.00, 3. 1 2  ,0. 00,0.00,0.00,0 . 75 , 
0 .00, 0.00,0.7$, 0.09, 0.00, 0.00, B. 00, 0.00, 3. 00, 0.00, 
0. 00, 0.00,0. 00, 0.00, 3. 13,0.00,0.00,0.00.0.00,0.00, 
23*3.30/ 

DATA  GTDA29/50*0.00/ 

DATA  GTDA30/0. 70, 0.70. 0.00, 0.00, 0.00, 0.53, 0.00, 0.00, 0.00,0. 58, 
0.00,0.33,0.38,0.00,0.00,0.00,0.30,0.30,0.00,0.00, 
0.00,0.52,0.00,0.00,1.25,0.00,0.04,0.00,0.00,0.00, 
20*0.00/ 

DATA  GTDA3 1/0. 23, 0.23, 0.00, 0.00, 0.00, 0.25, 0.00, 0.00, 0.00, 0.00, 
0.00,0.00.0.00,0.00,0.00,0.00,0.14,0.00.0.00,0.00, 
0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00, 
20*0.00/ 

DATA  GTDA32/0. 00, 0.00, 0.00, 0.00. 0.00, 0.53, 0.00, 0.00, 0.00, 0.00, 
0.00,0.33,0.00,0.09,0.00,0.00,0.30,0.30,0.00,0.00, 
0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00, 
20*0.00/ 

DATA  GTDA33/0. 70, 0.70, 0.00, 0.5 8, 0.00, 0.53, 0.00, 1.10,0.00,0.58, 
0.00,0.32,0.58,0.09 ,0.00,0.00,0.00,0.00,0.00,0.00, 
0 . 00 , 0 . 00 , 0 . 00 ,0.00, 1 .25,0. 00 , J . 00 , 0 . 00 , 0 . 00 , 0 . 00 , 
20*0.00/ 

DATA  GTDA3A/50*0 . 00/ 

DATA  GTOA35/30*0.00/ 

DATA  GTDA3b/0. 00, 0.00, 0.00, 0.0.?, 0.00, 0.33, 0.00, 0.00, 0.00, 0.00, 
0.00, 0.50, 0.00, 0.00, 0.00, 0.00. 0.00, 0.00, 0.00, 0.00, 
0.00,0.00,0.00,0.00,0.50,0.00,0.00,0.00.0.00,0.00, 
20*0.00/ 

DATA  GTDA37/0. 00, 0.00, 0.00, 0.00, 0.00, 0.33, 0.50, 0.00, 0.00, 0.00, 
0.00,0.50,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00, 
0.00,0.00,0.00,0.00,0.50,0.00,0.00,0.00,0.00,0.00, 
20*0.00/ 

DATA  GTDA3S/2.69,2. 69, 0.00, 2. 20. 0.00,3. 11 ,5.61 ,5.06,0.00, 1.03, 
0.00,0.37.1.03,2.20,0.00,0.09,0.09,0.00,0.09,0.00, 

з. 25,3.25,1.37,0.00,3.36,0.00,0.00,0.00,0.40,0.00. 
20*0.00/ 

DATA  GTDA39/50-0 .00/ 

DATA  GTDA40/0. 70, 0.70, 0.00, 0.53, 0.00, 0.53. 0.00,1 .10.0.00,0.58, 
0.00,0.33.0.53,0.09,0.00,0.30,0.00,0.00,0.30,0.00, 
!  0.52,0.52.0.24,0.00,1.25.0.00,0.04,0.00.0.00,0.00, 

20*0.00/ 

DATA  GTDA41/0. 70,0.70.0.00,0.00,0.00,0.53,0.00, 1.10,0.00,0.58, 
0.00,0.33,0.53,0.00,0.00,0. 00 ,0.00,0.30,0. 00 , 0  -  00 , 
:  0.52,0.52.0.24,0.00,1.25,0.00,0.04,0.00.0.00,0.00, 

I  20*0.00/ 

DATA  GTDA42/0. 70,0.70,0.00,0.00,0.00,0.53,0.00, 1 .10.0.00,0.58, 
i"  •  00 ,0.33,0. 58,0.00,0.00,0. 00 .  &  .  00 ,0.30,0. 00 , 0 . 00 , 
0.52,0.52.0.24,0.00,1.25,0.00,0.04,0.00,0.00.0.00, 
I  20*0.00/ 

DATA  GTDA43/3 . 2 1 ,3.21,0.00,1.33,0.00,3.12.7.60,3.85,0.00,0.75, 

и .  00,0 . 92,0.75,0.46, 0.00 ,1.18,1.18,1.13,1.18,0. 00 , 

I  0.00,0.00,0.00,0.00,3.18,0.00,0.00,0.00,0.38,0.00, 

'  20*0 . 00/ 

DA "A  GTDA44 '2.21 ,3.21.0.00.1.33.0.00,3.12.0.00,0.00,0.00,0.75. 

J. 00, 0.92, 0.75, 0.46, 0.00, 1.13.1. IS. 1.15. 1.18, 0.00. 
I  0.00,0.00.0.00,0.00,3.18,0.00,0.00,0.00.0.38,0.00. 

I  20*0.00/ 

DATA  GTDA45/5i*0 . 00/ 

DATA  GTDA 46/50*0. 00/ 

DATA  GTDA47/0. 70, 0.70, 0.00, 0.00, 0.00, 0.00, 0.00, 1.10,0.00,0.58, 
0.00,0.33,0.58,0.00.0.00,0.00,0.00,0.30,0.00,0.00. 
I  0.00,0.52,0.24,0.00,1.25,0.00,0.04,0.00.0.00,0.00. 

I  20*0.00/ 

DATA  GTDA48/50*0.00/ 

DATA  GTDA49/50*0. 00/ 


DATA  GTDA5S/5 0*0.00/ 
E  NO 


o  o 


OVERLAY  ( FIRST, 1 ,0) 

PROGRAM  FIRST 
DIMENSION  DES! 10) 

SUBROUTINE  FIRST 
DATA  SET  1 
3676  FORMAT ( A1 ) 

REACH  5,8676 )AB1234 
CALL  LETTER 
WRITE! 6 , 1 15  ) 

115  FORMAT! 1H1,  S0X , 17HTA8LE  OF  CONTENTS  ) 

WRITE! 6,201 ) 

201  FORMAT! 1H-,33X,42HI  .  AIRCRAFT  SOURCES 
1//4±X,S5HA.  DEFAULT  INFORMATION 
2/V  54X.56H1.  ENGINE  POLLUTANT  EMISSION  DATA 

3//  54X.55H2.  ENGINE  POLLUTANT  EMISSION  RATES 
♦//  54X.56H3.  GSE  POLLUTANT  EMISSION  DATA 
+  .'/  54X.56H4.  GSE  POLLUTANT  EMISSION  RATES 
4//  A4X.56HB.  INPUT  INFORMATION 

5/,'  54X.56H1.  INFORMATION  ON  AIRCRAFT  ACTIVITY,  PARKING  AREAS,  TAXI 
6  1  6 H WAVS  AfID  RUNWAYS 

7//  54X.S5H2.  INFORMATION  FOR  AIRCRAFT  SERVICE  VEHICLES 

8//  54X.56H3.  AIRCRAFT  LANDING  ANO  TAKEOFF  PARAMETERS 

9//  A4X.56HC.-I  NTER1M  CALCULATIONS 

A//  54X.56H1.  AIRCRAFT  EMISSION  FACTORS  BY  AIRCRAFT  TYPE  ! KG  PER  EN 

B  14HGINE  PER  HOUR) 

+/'  54X.56H2.  GROUND  SERVICE  EQUIPMENT  EMISSIONS 
C/V  33X , 56H 1 1 ,  AIRBASE  SOURCES 

D//  A4X.58HA.  VEHICLE  AGE  DISTRIBUTION  AN 
.D/44X.40H  EMISSION  FACTORS 
E//  34X , 56H 1 .  AIRBASE  VEHICLE  AGE  DISTRIBUTION 
F//  54X.56H2.  MILITARY  AND  CIVILIAN  POLLUTION  EMISSION  FACTORS 
G//  A4X , 56HB .  AIRBASE  POINT  SOURCES 
H//  54X.31H1.  AIRBASE  TRAINING  FIRE  SITES  > 

WRITE <6, 202) 

202  FORMAT!  /54X,51H2.  AIRBASE  TEST  CELLS 
1//  64X.56H3.  AIRBASE  RUNUP  STANDS 
2//  54X.56H4.  AIRBASE  POWER  PLANTS 
3//  S4X.56H5.  AIRBASE  INCINERATORS 
4/,'  54X.56H5.  AIRBASE  STORAGE  TANKS 
5//  54X.56H7.  AIRBASE  OTHER  POINTS 

6//  44X.56HC.  AIRBASE  AREA  SOURCES 

7//  E4X.56H1.  AIRBASE  AREA  SOURCE  GEOMETRIES 

3//  54X.56H2.  AIRBASE  HYDROCARBON  FILLING 

9//  54X.56H3.  AIRBASE  PETROLEUM  STORAGE  TANKS 

A//  54X.56H4.  AIRBASE  TANK  TRUCK  PARKING 

B//  54X.56H5.  AIRBASE  VEHICLE  PARKING 

C//  54X.56H6.  OTHER  AIRBASE  EVAPORATIVE  HYDROCARBONS 

D //  54X.56H7.  AIRBASE  SPACE  HEATING 

E / /  54X.56H8.  AIRBASE  OFFROAD  VEHICLES 

F//  54X.66H9.  AIRBASE  MILITARY  ARE-  SOURCES 

G  /  S3X.56H10.  AIRBASE  CIVILIAN  VEHICLE  AREA  SOURCES 

H,V  *-4X  ,  56HD  .  AIRBASE  LINE  SOURCES 

l  > 

WRI“E'6,202> 

203  FORMAT!  /54X.50H1.  AIRBASE  NON-AIRCRAFT  LINE  SOURCE  GEOMETRIES 
IV  34X.56H2.  AIRBASE  MILITARY  VEHICLE  LINES 

2'/  o4X.56H3.  AIRBASE  CIVILIAN  VEHICLE  LINES 

3/Y  54X.56H4.  AIRBASE  OTHER  NON-A I P.CRAFT  LINES 

4/ /  32X.5SHIII.  ENVIRON  SOURCES 

5//  *4X,56HA.  ENVIRON  POINT  SOURCES 

S//  -4X.55HB.  ENVIRON  AREA  SOURCES 

7//  i 4 X , 5 6 rt 1 .  ENVIRON  STATIONARY  AREAS 

8//  3 4 X , 5 5 H 2 .  ENVIRON  MOBILE  AREAS 
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9//  £4X ( 56HC .  ENVIRON  LINE  SOURCES 
A//  54X.56H1.  ENVIRON  ROADWAY  LINES 
8//  54X.56H2.  ENVIRON  NON-ROADWAY  LINES 
C//  33X.56HIV.  SUMMARY 


0// 

44X.56HA. 

METE 

0  R  0  L  0 

G  I  C  A  L 

D 

A  T  A  SUM 

MAR 

Y 

£// 

44X.56HB. 

TEMP 

ORAL 

D  I  S  T  R 

I  B 

U  T  I  0  N  F 

RAC 

T 

, 

2 

2H  I  0  N 

S  U  M  M 

ARY 

F// 

A4X.56HC. 

A  I  R  C 

RAFT 

E  M  I  S  S 

I  0 

N  S  U  M  M  A 

R  Y 

G// 

S4X.56H1 . 

SUMMARY 

OF  ANNUAL 

EMISSIONS 

BY  AIRCRAFT  TYPE 

H// 

54X.50H2. 

SUMMARY 

OF  ANNUAL 

EMISSIONS 

FOR 

ALL  AIRCRAFT 

) 

WRI 

TE  <  6 , 20A  ) 

204  FORMAT!  /44X 

,  50HD .  A 

I  R  B  A  S 

E  EMI 

S  S 

ION  SUM 

MAR 

Y 

1// 

54X.56H1 . 

SUMMARY 

Or  ANNUAL 

EMISSIONS 

FROM 

GROUND  MOBIL 

SOURCES 

2// 

54X.56H2. 

SUMMARY 

OF  ANNUAL 

EMISSIONS 

FROM 

AIRBASE  FACILITIES 

3// 

54X.56H3. 

SUMMARY 

OF  ANNUAL 

EMISSIONS 

FROM 

EVAPORATIVE  1 

HYDROCAR 

4,  1 

2HBON  SOURCES 

5// 

t4X,56HE. 

E  N  V  I 

RON  E 

M  I  S  S  I 

0  N 

S  U  M  M  A  R 

Y 

6// 

54X.56H1 . 

SUMMARY 

OF  ANNUAL 

EMISSIONS 

FROM 

ENVIRONS 

7// 

44X.56HF . 

T  0  T  A 

L  SUM 

MARY 

a// 

54X.56H1  . 

SUMMARY 

OF  ALL  ANNUAL  EMISSIONS 

9//  5 4 X , 5 1 H 2 .  EMISSION  PERCENTAGE  BREAKDOWN  OF  ALL  SOURCES  ) 

WRITE( 6 , 9C00> 

9000  FORMAT  (  1 H 1 ,  //60X  ,  1 2H  INTRODUCTION  ,  8(/>) 

WRITE <6, 9001 > 

9001  FORMAT! 1H  .ZSX.80HTHE  US  AIR  FORCE,  THROUGH  A  CONTRACTUAL  EFFORT  B 

1Y  ARGONNE  NATIONAL  LABORATORY  /1H  ,28X, 

2  80H( ANL ) ,  HAS  DEVELOPED  THE  USAF/ANL  AIR  QUALITY  ASSESS 

3MENT  MODEL  <  AQAM ) .  THIS  /1H  ,28X, 

4  S0HMODEL  CONSISTS  OF  FOUR  COMPUTER  CODES0  A  SOURCE  INVE 

5NTORY  PROGRAM  TO  COMPUTE  /1H  ,28X, 

6  30HTOTAL  EMISSIONS  FROM  OPERATIONAL  INPUT  DATA,  A  SHORT 

7-TERM  DISPERSION  PROGRAM  TO  /1H  ,28X, 

8  80HPREDICT  AIR  QUALITY  CONCENTRATIONS  ON  A  ONE-HOUR  BAS 

9 1 S ,  A  LONG-TERM  PROGRAM  TO  /1H  ,28X, 

A  80HPRED ICT  CONCENTRATIONS  ON  AN  ANNUAL  BASIS,  AND  A  MET 

BEOROLOGICAL  PROGRAM  TO  /IH  ,28X, 

C  30HCOMP ILE  THE  CLIMATOLOGY  FOR  USE  IN  THE  LONG-TERM  PRE 

DDICTIONS.  DETAILED  /1H  ,2SX, 

E  80HDISCUSSIONS  OF  THE  AQAM  THEORY  AND  APPLICATIONS  ARE 

^PRESENTED  IN  AFWL-TR-74-304 ,  /IH  ,28X, 

G  35HAFWL-TR-75-220 ,  AND  AFWL-TR-75-307 .  > 

WRITE! 6,9002  > 

9002  FORMAT! 1 H0 , 28X , 80HTHE  SOURCE  INVENTORY  PROGRAM  INPUT  DATA  INCLUDES 

1  AIRCRAFT  ENGINE  EMISSION  /1H  ,23X. 

2  80HFACTORS,  LANDING  AND  TAKEOFF  ( LTO )  CYCLE  INFORMATION 

3,  RUNWAY,  TAX  I  WAY ,  AND  /IH  ,28X, 

4  80HPARKING  RAMP  COORDINATES,  LTO  ACTIVITY  BY  AIRCRAFT  T 

5 YPE .  AND  EMISSION  / 1 H  ,28X 

6  80H INFORMATION  FOR  MANY  NON-AIRCRAFT  EMISSION  SOURCES. 

7  AIRCRAFT  ENGINE  EMISSION  /IH  .28X, 

8  30H INFORMAT  I  ON  WAS  COMPILED  FROM  MEASURMENTS  TAKEN  BY  T 
SHE  AIR  FORCE.  NAVY,  OTHER  GO  /IH  ,23X, 

A  C5HVERNMENT  AGENCIES.  AND  INDUSTRY.  ) 

V? I “E! 6.9003 > 


9003  FORMAT! 1 H0 . 2SX . 80HTHE  LTO  CYCLE  INFORMATION  WAS  OBTAINED  FROM  F I  EL 
ID  OBSERVATIONS  AT  FIVE  LOCATIONS  /IH  ,28X, 

2  80HAND  PILOT  SURVEYS  AT  SIX  LOCATIONS.  THIS  INFORMATIO 

3N  INCLUOES  TIME  IN  MODE  /IH  .28X, 

4  30HMEASURMENTS,  AIRCRAFT  VELOCITIES  AT  SELECTED  CHECKPO 

5 1  NTT ,  AND  ENGINE  FUEL  FLOWS  /  IH  .28X, 

6  80HIN  EACH  OF  THE  NINE  MODES  OF  THE  LTO  CYCLE  (IDLE  AT 

’STAR“-UP,  TAX  I -OUT ,  ENGINE  /IH  ,Z8X, 

3  30HCHECK ,  TAKEOFF  ROLE.  CLIMBOUT.  APPROACH.  LANDING  ON 

3 RUNWAY ,  TAX  I -IN,  ANO  /IH  .Z8X, 
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A  80HSHUTOOWN) .  RUNWAY  ROLL  TIMES  AND  LOCATIONS  ARE  COMP 

BUTED  FROM  A  SERIES  OF  /IH  ,28X, 

C  80HALGORITHIMS  DEVELOPED  FROM  AIRCRAFT  OPERATING  MANUAL 

DS  AND  ARE  FUNCTIONS  OF  AIR-  /1H  ,28X, 

E  80HCRAFT  GROSS  WEIGHT,  PRESSURE  ALTITUDE,  AND  AMBIENT  T 

FEMPSRATURE.  CLIMEOUT  TIMES  /1H  ,28X, 

G  30HARE  COMPUTED  FROM  VELOCITY  DIFFERENCES  BETWEEN  TAKEO 

HFF  AND  AT  A  3000-FOOT  /IH  ,28X, 

1  10HALTITUOE.  ) 

WR! TE ! 6 , 9004 ) 

9004  FORMAT< 1H0.28X .80HNONAIRCRAFT  EMISSION  SOURCES  ARE  COMPUTED  BY  UTI 
1LIZING  A  DATA  BANK  OF  EMISSION  /IH  ,28X, 

2  80HFACTORS  WHICH  HAS  BEEN  PROGRAMMED  INTO  THE  AQAM.  TH 
2ESE  VALUES  ARE  CONSISTANT  /lrt  ,28X, 

3  30HWITH  THE  EPA  PUBLICATION  AP-42.  OPERATIONAL  INFORMA 

4TION  MUST  BE  INPUT  /IH  ,28X, 

5  39HSPECIF ICALLY  FOR  EACH  AIRBASE  ANALYZED.  ) 

C  FOLLOWING  ARE  THE  LOCATIONS  OF  GRID  ORIGINS 
READ!  S , 806  )  IDMAX 

806  FORMAT! 14 > 

IF  ( IDMAX. LE.0>  GO  TO  816 
WRITE !  6 , S08  ) 

808  FORMAT! 1H1 ,//,54X, 26HLOCATION  OF  GRID  ORIGIN,//) 

WRITE (6, 3 10) 

810  FORMAT! IX, 1 6X , 9H BENCHMARK , 25X , 8H LATITUDE , 1 4X , 9HL0NG ITUDE , 12X, 

. 12HUTM  NORTHING, 11X.11HUTM  EASTING) 

WP,  ITE  (  6 , 8 1 1  > 

811  FORMAT! 1 X , 1 4X , * <  DESCR I PT I  ON )-, 2 1 X ,«( DEG/MI N/SEC >*. 9X , 
.*<D£G/MIN/SEC>*,10X,*<  KILOMETERS )* , 1 IX , *( KILOMETERS  >* , / ) 

DO  313  0J«1, IDMAX 

READ! 5,814)  (DES(I),I»1,6),ID1,IM1,S1,ID2,IM2,S2, KMN , KME 

814  FORMAT  < 6A6 , 2 ( 2 1  4 . F 6 . 3  ) , 2F8 . 3  ) 

WRITE (6, 81 5  )  ( D£S< I  ), 1-1 ,6  ), ID1 , IM1 ,S1 . ID2, IM2 , S2 , KMN , KME 

815  FORMAT! IX, 6A6. 12X, 214, IX ,F6 . 3 , 7X , 21 4 , IX , F 6 . 3 ,T96 , F8 . 3 , 

.  T 1 20 ,  F  8 . 3  ) 

813  CONTINUE 

C  FOLLOWING  IS  THE  LIST  OF  AIRBASE  SOURCES. 

816  CONTINUE 

READ! 5,312)  IDMAX 
312  FORMAT! 14) 

IF  ! IDMAX.LE.0)  GO  TO  817 
WR I TE ! 6 , 800 ) 

300  FORMAT!  IX. 4{/;54X,26HLIST  OF  AIRBASE  SOUF.CES,  2</>> 

WRITE! 6,821  ) 

821  FORMAT! IX, 9HSOURCE  , 6X , 12HFAC I L ITY  , 15X, 1 1HDE3CRIPTION ) 

WRITE! 6,801 ) 

801  FORMAT! 3X.2HI0, 1 2X , 6HNUMBER , / ) 

DO  307  IJ-i . IDMAX 

READ! 5,802 /  N1D.FACND, ! DES! I  ) , I ■ 1 , 8  ) 

£02  FORMAT! 14.A10.2X.8A8 ) 

WRITE! 6,303 )  MID , FACND , ( DES! I  ) , 1  =  1 ,8  ) 

303  FORMAT! 2X . I  4 , 9X , A 1 0 , 10X . 3A8  ) 

807  CON- I NUE 
317  CON”  I  NUE 

£*«•**««  “HE  REASON  FOR  THE  PROGRAM  IS  TO  GET  AROUND  OVERLAY  PROBLEMS 
C  SU3FOUTINE  IXPOT  CAN  CHANGE  DEFAULT  VALUES 
CAL.  INPUT 

READ  METEOROLOGICAL  DATA  FROM  CARD 
DATA  SET  3 

READ! 5 , 8675 )  AB1234 

READ  (5,10)  TBAR , ADO , P A . WSBAR , DTBAR 
10  FORMAT  (3F8.2) 
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RETURN 

END 
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SUBROUTINE  LETTER 
DIMENSION  ITITLEU2) 

DC  ‘3003  I OVER-2, 2 
WRITE!  6  ,  $33'.  ) 

6331  FORMAT!  1 H 1 > 

DC  230  IK-1.12 
2 33  ITITLE! IK )-IH 

1HOLD-10HAQA.M  SOURC 

DECODE  <  10.1.1  HOLD  ><  ITITLE! J  ) ,  J- 1 , 10 ) 

1  FORMAT! 10A1 ) 

I  TITLE! 11 >*IHE 
CALL  CHARAC! ITITLE  ) 

WRITE! 6 , 6002  > 

DO  23 1  IK-1.12 
201  I~ITi.Ein.i-lH 

IHD.D-9H 2  MVENTORY 

DECODE! 9.2. ’HOLD)! ITITLE ! J ) ,J- 1 , 9  ) 

2  -CRMAT19A1  » 

CALL  CHARAC! ITITLE ) 

6 , 6002  ) 

DO  1000  L-1.2 

READ!  5, 10Ji!  ITITLE!  I  ),  I  - 1 . 12  > 

100  FORMAT! 12A1 ) 

6002  FORMAT! IK- ) 

CALL  CHARAC! ITITLE > 

WRITE! 6,6002) 

1000  CONTINUE 

IF! IOVER.EQ.2)  GO  TO  9000 
SACKSPACE  5 
DACT.SPACE  5 
9000  CONTINUE 

WRITE! 6,6001 > 

R £  TURN 
S  ID 


Copy  available  to  DTIC  does  not 
permit  fully  legioic  reproduction 
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SUBROUTINE  CHARAC( ITITLE  > 

DIMENSION  ICHAR! 12,37 > , 1ALPHA! 37 > , ID! 12>,IT1TLF! 12 ) , MASK! 1 1 > , 
.LINEK  132) 

INTESER  OFFSET 
DATA  I CHAR/ 

.*0160, *0370, "0614, 3** 1406, 2*" 1776, 4*" 1406, '1770, *1774, 

.3** 1406,2* “1774, 3**1 406, *1774, *1770, *0376 , “0776 , * l 600, 6** l 400. 
.*1600, *0776, *0376, *1770, *1774, *1416, 6** 1406, *1416, *1774, *1770, 
.2** 1776, 3** 1400, 2* *1774, 3* “1400, 4**1 776, 3**1 400, 2* *1774, 5**1400, 
."0376, *0776, 3** 1400, *1434, *1476, 3** 1406, *0776, "0374,5** 1406, 

.2-* 1776, 5** 1406, 2* *1776, 8**01 60, 2** 1776, 2* *01 76, 6* *0030, 

.2*“ 1430, *1770, “0760, *1406, *141 4, “1430, *1460, *1540, 2**1 700, “1540, 
.“1460, *1430, “141 4, *1406, 10** 1400, 2** 1776, *1406, *1616, “1736, 

.2** 1566, *1446, 8** 1406, “1606, *1706, 2** 1546, 2** 1466, *1436, *14 16, 
.2-* 1406, *0370, "0774,8**1406, “0774, “0370, “1770, “1774, 2** 1406, 
."1774, *1770,6*“ 1400, *0370, “0774,6**1406, *1466, “1436, *0774, *0370, 
."1770, *1774, 2*" 1406, *1774, “1770, *1540, "1460, *1430, “1414, 2** 1406, 

. “0376, “0776,3**1400, *0770, *0374 , 3* “0006 , *  1 774 , *  1 770, 2** 1776 . 

. 10**0160, 10-“ 1406, *0774 , *0370,7*“ 1406,2**0614, *0330, *0160, *0040, 
.6**1406, *1446,2*“ 1566, *1736. *1616, 3** 1406, *0614, *0330,4**0160, 

. "0330, "061 4, 5*" 1406, 2**06 14, “0330,6**0160,2**1776, *0006, *001 4, 

. "0030, *0060, “0140, “0300, *0600, “ 1 400, 2*“ 1 776 , 1 2*0, 2** 1 776 , 8** 1 406 , 
.2**1776,  “0060,  “0160,  “0360, 7**0060 , 2*  “0776, 2*“  1.774, 3**0014,  *0030, 

. “0060, "01 40, *0300, "0600, 4** 1776, 3- “0006, 2* "0376, 3* *0006, 2* *1776, 

. *0016, “0036, *0066, “0146, *0306, “0776, “1776,5**0006, 

.2*" 1776, 2** 1400, 2*" 1776, 4**0006,4**1 776, 3*" 1400, 2* “1776, 3** 1406, 
.4**1776,2**0006, "001 4, 2* “0030, 5 *"0060, 2* "1776, 3** 1406, 2**1776, 

.3* *1406, 4* *1776, 3* “1406, 2* “1776, 3* “0006, 2* "1776/ 

DATA  IALPHA/1HA, 1HB, 1HC, 1HD, 1HE ,  1HF , 1HG , 1HH , 1HI , 1  HO , 1HK, 1HL , 1HM, 

. 1HN, 1HO, 1HP, 1HQ, 1HR, 1HS, 1HT, 1HU, 1HV, 1HW, 1HX, 1HY, 1HZ.1H  ,1H0, 1H1 , 

. 1H2, 1H3, 1H4, 1H5, 1H6, 1H7.1HS, 1H9/ 

DATA  L I NE 1/ 1 32* 1 H  / 

DATA  MASK/ “2 000, “ 1000, "400, *200, “ 100, “40, *20. *  10, * 4 , *2 , *  1/ 

DO  150  10-1,12 
0-  13-10 

IF( ITITLE(0).NE.IALPHA<27>)  GO  TO  70 
150  CONTINUE 
70  CONTINUE 
NUMLET-0 

OFFSET-! 1 32-NUMLET* 1 1 )/2 
DO  250  10-1,12 
I TEST-0 

DO  251  OK- 1 , 37 

IF ( ITITLE ( LO  ). EO. IALPHA! OK ) )  ITEST-1 
IF ( ITEST.EQ.0)  GO  TO  251 
1  D( LO )-0K 
GO  TO  250 
251  CONTINUE 
ID( LO )-  27 
250  CONTINUE 

DO  2000  LNCNT- 1,12 
DO  1000  LPOS-1,12 
!POS-< ll*(LPOS-l )>♦  OFFSET 
DO  1200  MAKEUP- 1,11 

L TEST- I  CHAR! LNCNT, ID! LPOS ) ) .AND . MASK! MAKEUP ) 

I F ! LTEST . EQ .0 )  GO  TO  1200 

LINE1! I POS+MAKEUP )- I ALPHA! ID! LPOS  > ) 

1200  CONTINUE 
1000  CONTINUE 

WRITE! 6, 200)! LINE 1<0Q), 00-1. 132 ) 

200  FORMAT! 132A1 ) 

DO  106  1-1,132 
LINEl! I )- 1 H 


106  CONTINUE 
2000  CONTINUE 
RETURN 
END 


''ATA!ICHAR!27,K5, 01,125/ 

.  12*0/ 

0ATAdCHAR!28,K5,Ol  ,125/ 

. 2-17768, 8-14068, 2* 17768/ 

DATA!  ICHAR!29,K5,K-1,125/ 

.00508,01 608.03608 , 7"0060B  ,  2*07768/ 

0ATA< ICHAR( 30, K ) ,K-1 , 12 )/ 

. 2* 1 774B , 3*001 4B ,0030B , 00608,01 40B ,03008 .0600B , 2* 1 776B/ 

DATA! I  CHARI  31, K5, 01,125/ 

. 2* 17768, 3*00068, 2*0376B,3*0006B, 2* 1776B/ 

DATA! I CHAR <  32, K5, 01.125/ 

.001 63, 00363, 00668, 01 46B, 03068, 0776B, 17768, S*0006B/ 

DATA!  ICHAR<  33, K), 01,125/ 

•2*1776B,2*1 400B ,2*17768, 4 *0006 B ,2*1776B/ 

DATA( ICHARI34.K  5,01, 12  5/ 

.2*17768, 3- 1400B ,2*1776B,3*1 406 B ,2*1776B/ 

0ATA( ICHAR!35,K5, 01,125/ 

. 2*17768 , 2*0006B ,001 4B , 2-0030B , 5*0060B/ 

DATA!  ICHAR<‘36,K5, 01,125/ 

.2*17768,3*1 4068 , 2*17768 , 3* 1406B , 2* 1776B/ 

0ATA(  I  CHAR  <  37, K5, 01,125/ 

.2" 17768, 3* 14068, 2* 17768, 3*00063, 2-1776B/ 

DATA  IALPHA/1HA, 1HB.1HC, 1HD, 1  HE , 1 HF , 1 HG , 1HH , 1HI , 1HJ , 1HK, 1HL , 1HM 
. 1HN, 1H0, 1HP.1HQ, 1HR, 1HS, 1HT, 1HU, 1HV, 1HW, 1HX, 1HY, 1HZ.1H  ,1H0, 1H.1 
. 1H2, 1H3, 1H4, 1HS, 1H6.1H7, 1H8, 1H9/ 

DATA  LINE1/135-1H  / 

DATA  MASK/ 20008 , 1000B , 4008 . 2008 , 1008 . 408 ,208 , 10B , 4B , 2B , IB/ 

DO  150  IJ-1,12 
J-  13-1 J 

IF! ITITLE! J ) .  NE . I ALP HA (27  5  5  GO  TO  70 
150  CONTINUE 
70  CONTINUE 
NUMLET-J 

OFFSET*! 12-NUMLET  5*6 
DO  250  LJ-1,12 
ITEST-0 

DO  251  JO  1 , 37 

IF!  ITITLE! LJ  5.EQ. IALPHA! JK5  5  ITEST-1 
I F ( ITEST.EO.0)  GO  TO  251 
ID!LJ  5-OK 
GO  TO  250 
251  CONTINUE 
ID( lO  5*  27 
250  CONTINUE 

DO  2000  LNCNT-1,12 
DO  1000  LPOS-1 ,12 
IPOS-(  U*<  LPOS-1  5  5+  OFFSET 
DO  1200  MAKEUP- 1 , 1 1 

LTEST-ICHAR! I D< LPOS 5 , INCNT 5 .AND .MASK! MAKEUP  5 
IF! LTEST.EQ.0)  GO  TO  1200 
LINE1! I POS+MAKEUP  ) *  1  HO 
1200  CONTINUE 
1000  CONTINUE 

WRI 7E (  6,200 )( LINE  1! JQ), JO-1, 135 5 
DO  500  IK-1.135 

600  IFU.INE1!  1K5.EQ.1H0)  L  I  NE  1  <  I K  )  -  1 HX 
WRITE! 6,201 5! LINE l (JO), JQ-1, 1355 
DC  501  IK-1.135 

601  IFILINE1! IK5.EQ.1HX5  1 1 NE 1 < IK  5- 1  HA 
WRITE! 6,201 5 ! LINE  1 < JO  5, JQ-1 , 135  5 
DO  602  IK-1,135 

502  I F ! L  I  NE  l  ( IK5.EQ.1HA5LINE1! IK5-1HV 
WRITE! 6,201 5  <LINE1!JQ5, JO-1, 1355 
20 i  FORMAT! 1H+ , 135A1 5 


200  PQRMAT < 1 H  ,  135A1) 
DO  106  1-1.135 
-I NEK  I  ) - 1 H 
1.75  CONTINUE 
2000  CONTINUE 
RETURN 
END 
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SUBROUTINE  INPUT 


E 

L« 


INITIALIZE  TEMPORAL  DISTRIBUTION  ARRAYS  AND 
READ  CHANGES  TO  SAME  AND  RESIDENT 
EMISSION  DATA  BASES 


< 


« 


I 


1 

2 

3 

4 

5 
S 


1 

2 

3 

1 

5 

5 

1 

2 

3 

4 

1 

2 

3 

4 

5 

6 
7 

a 

3 


I 


1 

2 

3 

4 

5 

6 


INTEGER  ACNAME , EGNAME , ENGNO 
REAL  LNDSPD 
COMMON  /ACEDBi/ 

ACEMFCI 8, 10,6 ), ACNAME l SB), EGNAME <50>,ENGNO< 50,2), 
ASCN71 ( 50 ) , ASCNT2I 50  > , TXI SPD<  50 ) , LNDSPD! 50 ) , 
APSPDl! 50>,COHT1( 50) ,APSPD2<  50>,TOSPD<  50 ) , 

COSPD i <  50 ) , COSPD2! 50 ) , SRTUPT! 50) , DSCNT1 <  50) , 
EGCHKT ( 50) , SHTDNT ( 50  > .DSCNT2I 50) ,APPHT, 

APPHT2I 50) , CLM3HT , TOWT< 50) 

REAL  LUEMFC  . 

COMMON  /EMFDS1/ 

EGEMFC! 6,4.50), PL NAME  <  6  >,PPEMFC( 22,6),EMFCIN<5,6) 
TFEMFCt 6),LUEMFC(9,6),ALPHA(7),BETA(7), 

FLDENS! 7 ) , FLNAMEt  7 ) , AFEMFC! 2 , 6 , 6  ) , ATEMFCI 2,6,6), 
CSEMFC! 6,6  ) , AFCSEM< 6,6) , AF SOAK , ATSOAK , 

AFBRTH .ATBRTH , FLTFCT( 7  )  ,FIXFCT( 7  ), 

URKFCT! 7  > 

COMMON  /DSTRBT / 

ACMO< 13,50) . ACDY ( 2,50) , ACHR< 24,50) , VHMLMOI 13), 
VHMLDYI 2 ) . VHMLHR! 24 ) .CVABMO! 1 3 > ,CVABDY<  2 ) . 

CVA8HR! 24 ) ,CVENMO( 13  > ,CVEMDY( 2  )  ,CVEMHR( 24  ) , 

FLMO( 13,7),FLDY<2,7),FLHR<24,7) 

COMMON  /DEFALT/ 

NPLTS. ITAPE.ACLNDY.ACLNDZ. 

TCVSDF.TCHBDF. TCHODF , TCDYDF , 

TCDZDF , RUDSDF , RUTSDF , RUVSDF , 

R'JHBOF  ,  RUHOOF  ,  RUOYDF  ,  RUDZDF  , 

TFDZDF .TFQDF .TFHBDF .TFHODF , 

EGCKD Y , EGCKDZ , ACMLPL , ARDSDZ, 

ATDSDY .ATDSDZ .TCDSDF.TCTSDF, 
FPDFLT,TDDFLT,RFDFLT,SFDFLT, 
PFDFLT,TFDFLT,TFDYDF,MINUS(6  ) 

INTEGER  THNAME 
COMMON  /EGEOB1/ 

MO NAM  1 ( 10) .THNAME ( 4 ) .MONAM2C 10), IDACEGC 50) , 

I ACABF  <  50  ) ,  EGFF  <  4 , 50 ) ,  I  EGABF(  50  ) ,  I  DP.R(  50) 

INTEGER  GCNAME , GSNAME 
COMMON  /GSEDB  1  / 

NSFLS . I SFMAP <  5  > , 

GCNAME < 15  ) , 

GSNAME ( 50 ) , IGSCAT! 50  ) , 

IGSFLTi  50),GSFF( 50) .GSEMFCC  6,50), 

GSRVCT! 50,50), 

GSFUtL ( 5 ) , NGSTYP , IGS7V»C 30 > , 

GSUSGE ( 30) , IGSAGNl 8 , 30 ) , 


3  GS E ~ I M( 6  , 30 ) 


NAMELIST  /EGDATA/ 


1 

■y 

NAMELIST 

1 

2 

3 

A 

5 

NAMELIST 


EGNAME, EGFF . I EGABF , EGEMFC , 
IDACEG, I ACABF , IDRR 
/ACDATA/ 

APFHT , CLMBHT. ENGNO , DSCNT1 , 
DSCMT2.APSPD1 . APSPD2 , APPHT2 , 
ASCNT1 .ASCNT2, COSPD 1 ,COSPD2, 
COHT1 .TXISPD. LNDSPD. TOSPD, 
SRTUPT, EGCHKT, SHTDNT, TOWT 
/DSDATA/ 

ACMC , ACDY , ACHR , VHMLMO . 


I 
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2  VHMLDY , VHMLHR , CVA8M0 , CVABDY , 

3  CVABHR.CVENMO.CVENDY , CVENHR, 

4  FLMO . FLOY , FLHR 
NAMELIST  /GSDATA/ 

1  GSNAME , I G SCAT, IGSFLT.GSFF, 

2  GSEMFC.GSRVCT 
C 

C**»*  SET  UP  TEMPORAL  DISTRIBUTIONS 
C 

C***  MONTHLY  (1/12  PER  MONTH) 

C 

FM- 1 . / 1 2 . 

DO  10  1-1,12 
DO  11  J-l, 50 
ACMC< 13, J  >-i . 

ACMO< I ,0  )-FM 
11  CONTINUE 

YriMLMO<  I  )"FM 
C\/A6MO<  I  )-FM 
CV£MMO( I  )-FM 
DO  10  J-l  ,7 
F LMQ( 13 ,0  )-I . 

FLMO( I  ,  J  ; »r  M 
10  CONTINUE 

■VHMlMOI  13  )-l  . 

CVAciMO!  13  )-! . 

C7ENM0! 10 )-l . 

C 

C*«*  HOURLY  <1/12  PER  HOUR  FROM  6  A.M.  TO  6  P.M.;  0,  OTHERWISE) 

r- 

DO  15  1-1,24 
FH-0. 

IF! I.GT.6.AND.I.LT.19)  FH-1./I2. 

DO  16  0-1,50 
AC  HR ( I ,0  )-FH 

15  CONTINUE 
VNMLHR< I  )-FH 
CV*3HR< I  ) - F H 
CYE'IHR!  I  )-FH 
DO  15  J-l ,7 
FLHR!  I  ,J  )-FH 

16  CONTINUE 
C 

C***  DAILY  ( 1/7  PER  DAY ) 

C 

r  D» 1 . /7 . 

DO  20  1-1,2 
CO  21  J-l. 50 
ACDY!  I  ,  J  >-FD 
21  CONTINUE 

;HMLDY( I  )«FD 
C-ALDY(  I  i-FD 
IVE.IDY!  I  >  =  CD 
LC  20  J=: .7 
-  L  D  •'  (  I  ,  J  ;  »  F  D 
20  CONTINUE 

C***«  DATA  SET  2:  NAMELIST  DATA 

r 

READ! 5.8675)  AB1234 
3676  FORMAT <  A i  ) 

CAi_  _  CONYRT 
C 

CAPO  TYPE  1:  ENGINE  DATA 


c 


c*»* 

c 

c 

c**» 

c 

c 

c**» 

c 


READ( 3 , EGDATA ) 

CARD  TYPE  2:  AIRCRAFT  DATA 
READ! 3 , ACDATA ) 

CARD  TYPE  3:  DISTRIBUTION  DATA 

REAOC  3 , DSDATA ) 

CARD  TYPE  4:  GSE  DATA 

READ ( 3 , GSDATA ) 

RETURN 
END  - 


68 


o  o  r  i  n 


OVERLAY<ACEMIV,2,0) 
PROGRAM  ACEMIV 


*****  READ,  PROCESS  WRITE,  AND  PRINT 

*****  AIRCRAFT  SOURCE  EMISSION  INVENTORY 

INTEGER  ACNAME , EGNAME , ENGNO 
REAL  LNDSPD 
COMMON  /ACEDB 1 / 

1  ACEMFCI 8,10,6) .ACNAME ( 50 > , EGNAME ( 50) , ENGNO( 50,2), 

2  ASCNT1 ( 50 ) , ASCNT2I 50 ) , TXISPOI 50 ) , LNOSPDI 50 ) , 

3  APSPD 1 ( 50 ) , COHT1 ( 50 ) ,APSPD2( 50  > , TOSPD( 50) , 

4  COSPD1(50),COSPD2(50), SRTUPTI 50 ) , 0SCNT1 <50 ) , 

5  EGCHKTI 50) , SHTONT ( 50  > , 0SCNT2( 50) ,APPHT, 

6  APPHT2( 50  > .CLMBHT ,TOWT( 50 ) 

COMMON  /ACEDB2/ 

1  NACTYP  ..NRNWYS  ,NPKAR,  IEGFLG, 

2  I ACTYP ( 8  ) , ANNARR( 8  ) , ANNDEPI 8 > , ANNTGO( 8  > , 

3  ARRFCNI 24,6>,DEPFCN(24,6  ) , TGO( 3,4), D ISRNWI 6 ) , 

4  RNWY <  7 , 6  > , ! U SWD ( 20,6), RNWYAR( 8,6), RNWYDP( 8,6), 

5  ACFUEL ( 8 ) ,ARFLVT( 8 ) ,DPFLVT( 8 ) , ACSP IL( 8 ) , 

6  ARSVEMI 6,8,5), DPSVEMI 6,8,5) , NIBTT( 6>,NIBSEG(8,6), 

7  I1BSEG(16,8,6),IDIBTW<8,6>, TTARF  R( 8,8,6), NOBTT(  6 ) , 

8  H03SEG( 8,6 ), IOBSEG( 16,8,6  > , 1 DOBTW( 8,6) ,TTDPFR( 8,8,6), 

3  NPASQ<  6), I DPRKA( 6), PARE A ( 6,3,3>,IDIBPA(8,6), 

+  I  DOB PA ( 8 , 6  ) , NLSEGS , ACLNSG< 12,25) 

COMMON  /ACEDB3/ 

1  NWCASE , JES 1 <  3 ) , I RNWY (2,6) 

REAL  LUEMFC 
COMMON  /EMFDB1/ 

1  EG£MFC( 6 , 4 , 50 ) . PL NAME ( 6),PPEMFC(22,6),EMFCIN(5,6), 

2  TFEMFC{6),LUEMFC<9,6),ALPHA(7),BETA(7), 

3  FLOENSI 7  ), FLNAME (7),AFEMFC(2,6,6) , ATEMFCI 2,6,6), 

4  CSEMFC ( 6 . 6 ) , AFCSEM( 6,6! .AFSOAK.ATSOAK , 

5  AFBRTH,ATBRTH,FLTFCT(7),FIXFCT( 7 ) , 

6  WRKFCTI 7 ) 

COMMON  /DSTRBT / 

1  ACMO< 1 3 , 50 ) , ACO Y ( 2 , 50  > , ACHR( 24 , 50 ) , VHMLMOI 13), 

2  VHMLDYI 2 ) , VHMLHR( 24 ) ,CVABMQ< 13  )  ,CVABDY( 2 > , 

3  CVABHR( 24  > ,CVENMO< 1 3 ) , CVEND Y ( 2 ) , CVENHR( 24 > , 

4  FLMG( 13,7),FLDY<2,7),FLHR(24,7) 

COMMON  /ANNMET / 

1  T3AP. ,  A00  ,  P  ,  PA , 

2  WSBAR , DTBAR .AMBBAR 
COMMON  /DEFALT/ 

1  NPLTS, ITAPE .ACLNDY.ACLNDZ, 

2  TCVSDF,TCHBDF,TCHODF,TCDYDF, 

3  TCCZDF ,RU0SDF .RUTSDF , RUVSDF , 

4  RUHBDF .RUHODF . RUDYDF , RUDZDF , 

5  TFD2DF ,TFQDF .TFHBDF .TFHODF , 

6  EGCKDY .EGCKDZ.ACMLPL , ARDSDZ , 

7  ATDSDY.ATDSDZ.TCDSDF .TCTSDF , 

8  FPDFLT.TDDFLT.RFDFLT.SFDFLT, 

3  PFDFLT.TFDFLT.TFDYDF ,MIHUS( 6 ) 

COMMON  /TOTS/ 

1  TOTEM< 20,6), TOTE VP < 10) , EMI  SSI  8 , 15, 6 ) 

INTEGER  THNAME 
COMMON  /EGEL'31/ 

1  MOilAMl  (  10)  ,THNAME(  4  )  ,MONAM2(  10  > ,  I  DACEG  t  50  ) , 

2  IACABFI 50) ,EGFP( 4 ,50 ) , I EGABF ( 50 ) , 1DRR<  50) 

INTEGER  GCtlAME  , GSNAME 

COMMON  /GSF.D3 1  / 

1  NSFLS , I SFMAP <  5 ) , 


COMMON 
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2  GCNAME! 15  ) , 

3  GSNAME!50),IGSCAT!S0>, 

4  IGSFLT< 50 ) , GSFF ( 50 ) , GSEMFC! 6,50), 

5  GSRVCT (50.50), 

6  GSFU£L!5),NGSTYP, IGSTVP ( 30 ) , 

7  GSUSGE ( 30  > , IGSAGN!  8,30), 

8  GSETIM<  8,30) 

DATA  DTR  /0. 0174533/,  RTD  /S7.2958/ 

•***  ACCEPT  INPUT  DATA 

■«*  AIRFIELD  DATA 

CALL  AIRFLD! IERR) 

IF!  IERR.NE.0)  STOP 

***  GROUND  SERVICE  DATA 

CALL  GROSRV! IERR) 

IF ! IERR.NE.0)  STOP 

***»  COMPUTE  AIRCRAFT  EMISSION  FACTORS 

**  AIRCRAFT 

IEGFLG-0 
CALL  ACEFCT 

**  GROUND  SERVICE  EQUIPMENT 
CALL  GSEFCT 

*****  CONVERT  DEGREES  TO  RADIANS 

DO  10  I A" 1 , NACTYP 
I CAC- IACTYP ! I A ) 

ASCNT1! IDAC)-DTR*ASCNT1!  IDAC) 

ACCHT2!  IDAC  )=DTR*ASCNT2<  IDAC  ) 

DSCNT1! IDAC)-DTR*DSCNT1< IDAC) 

DDCNT2! IDAC )-0TR*DSCNT2! IDAC  > 

10  CONTINUE 

DO  20  IR-l.NRNWYS 
RHWYI7, IR)-DTR*RNWY(7, IR) 

20  CONTINUE 

»**"  WRITE  AIRCRAFT  DATA  TO  MASTER  SOURCE  TAPE 

WRITE! ITAPE )  NPLTS , NPKAR, NRNWYS . NACTYP , NWCASE , 

1  APPHT.CLMBHT, IEGFLG .NLSEGS 

DO  30  IW-l.fiWCASE 
DO  30  I A* 1 , NACTYP 
CALL  AOLN'Vt 1W. IA ) 

WRITE!  ITAPE  )  (  <  ARP.FCN!  L,IR),DEPFCN!L,IR),L-1,24),IR-1,6) 

30  CONTINUE 

WRITE!  ITAPE  )  <  <3ES  1  <  I A  )  ,  I  A*  1  .NACTYP  ) 

WRITE!  ITAPE  )  TBAR , ADD . PA , WSBAR , DTBAR 

WRITE! ITAPE  >  VHMLO , VHMLD Y , VRML  HR , CVABMO , CVABDY , CVABHR , 

1  CV£t  )IO,C VEND Y.CVENHR.F LMO.FLDY.F LHP. 

WRITE! ITAPE  )  N I BTT , N I B SEG  , 1 1 BSEG , NOBTT . NOBSEG , IOBSEG 
WRITE! ITAPE  )  IDOBTW. IDIBTV, I  DP RKA . P AREA , I D I  BP A . I DOBPA . NP ASQ 
WRITE! ITAPE  >  RNWY, IUSWD.DISRNW 

WRITE! ITAPE  )  ( ( ACLNSG! L , IS), L»l, 13), IS*1, NLSEGS) 

DO  *0  IA- I. NACTYP 
I  t'AC=  IACTYF  <  I A  ) 
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WRITE? ITAPE)  ( ACMO( K , IDAC  ) , K- 1 , 1 3  > ,  ( ACD Y< K . I DAC ) ,  K" 1 , 2  ) , 

1  <  ACHR<  K , I DAC ) ,  K- 1 , 24  ) 

WRITE { ITAPE  )  ANNARRt IA) ,ANNDEP( IA),ANNTGO< IA),ACFUEL< IA>, 

1  ARFLVT ( IA  > . DPFLVT ( IAI.ACSPILI IA),IDAC 

WRITE< ITAPE )  DSCNT1 ( I DAC  > ,DSCNT2< IDAC ) .ASCNT1 ( IDAC ) , 

1  ASCNT2? I DAC ) , TX 1 SPD( IDAC ) ,LNDSPD( I DAC ) .APSPDl { IDAC), 

2  APSPD2I IDAC ) , TOSPD< IDAC > , COSPD 1 ( I DAC ) ,C0SPD2( IDAC), 

3  SRTUPTI IDAC  > .EGCHKTt IDAC ) .SHTDNTI IDAC ) ,TOWT< IDAC  > , 

4  APPHT2I IDAC  > ,COHTl < IDAC),IDRR( IDAC) 

WRITE ( ITAPE  )  ( (ARSVEM? IP , IA, I U ) , DPSVEM( IP.IA, IU>, 

1  IU-1,5>,IP-1,6) 

WRITE! ITAPE)  < ( TGO( K , L  ) , K- 1 . 3  ) , L- 1 , 4  ) 

40  CONTINUE 

ENO  FILE  ITAPE 
C 

C***“  PROCESS  AIRCRAFT  SOURCE  INVENTORY 
r 

C*»*  ZERO  ACCUMULATORS 

DO  110  IP-1,6 
DO  110  IM-1,15 
DO  110  IA-1,8 
EMISS< IA, IM, IP )»0.0 
110  CONTINUE 
r 

C**»-  ARRIVAL  AND  DEPARTURE  DATA  (MODES  1  THRU  11) 

C 

CALL  ARRDEP 

r 

C»*»  GROUND  SERVICE  DATA  (MODES  12  THRU  14) 

C 

CALL  GROUND 

C*«*  TRAINING  FLIGHT  OATA  (MODE  15) 

C 

CALL  TRNFLT 


k. 


C***  CONVERT  TO  METRIC  TONS 

C 

DO  120  IP-1,6 
DO  120  IM-1,15 
DO  120  IA-1,8 

EMISS( IA.IM, IP )-EMlSS( IA, IM, IP )/1000. 
120  CONTINUE 
C 

,:**■•**  CONVERT  RADIANS  TO  DEGREES 
C 

00  310  I A- 1 , NACTYP 
! DAC- IA.CTYP <  IA  ) 

ASCMT1 ( IDAC )-RTD*ASCNTl( IDAC) 

ASCNT2 ( IDAC ) -RTD* ASCNT2 ( IDAC ) 

0SCNT1  (  IDAC  )  =  F.TD>'DSCNT1(  IDAC  ) 

J2CMT2( IDAC )=RT0*DSCNT2( IDAC ) 

310  CONTINUE 

DO  320  I R= 1 , NRNWYS 

R’IVY  (  7 ,  IR  )-P,TD*RNWY(  7,  IR  ) 

120  CONTINUE 
C 

C’***  PRINT  AIRCRAFT  SOURCE  INVENTORY 

C 

WRITE  (6,.i01> 

401  FORMAT?  1 H 1 , 28 ( /  )  , 

t  59X ,  *S  E  C  T  I  0  N  I*. 
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2  3(/>, 

3  52X , *A  IRCRAFT  SOURCES* 
***  OEFAULT  INFORMATION 

CALL  ODINFO 

***  AIRCRAFT  SOURCE  INPUT  INFORMATION 
CALL  OACSII 

***  INTERMEDIATE  CALCULATIONS 

CALL  OINCLC 

RETURN 

END 
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SUBROUTINE  AIRFLD(IERR) 


**“*  ACCEPT  AIRFIELD  DATA 
COMMON  /ACEDB2/ 

1  NACTYP , NRNWYS ,NPKAR,IEGFLG, 

2  IACTYP<  8 ) , ANNARR( 8 ) ,ANNDEP<  8 ) ,ANNTGO( 8 ) , 

3  ARF,FCN(24,6>,DEPFCN(24,5)  ,TGO(  3, 4  > ,  DISRNW(  6  ) , 

4  RNWY  (  7 , 6  ) ,  I  USWDt  20,6),  RNWYAR(  8,6),  RNWYDP  <  8,6), 

5  ACF'JEK  8  > ,  ARFLVT <  8  > ,  DPF LVT(  8  ) ,  ACSP  I L {  8  ) , 

6  ARSVEMt  6,8,5  ) . DPSVEM( 6 , 3 , 5 > , N IBTT( 5 > , N I BSEG< 3 , 6 > , 

7  I  i  ESEG(  16,8,6),  IDIBTW<  3,6  >,TTARFR<  8,8,6  >,N0STTC6>, 

3  NOSSEGI  8,6 ) , IOBSEG< 16,8,6), IDOBTW<  8,6), TTDPFR5  8,8,6), 

9  NrASQt 6 ) , IDPRXA(  6 ) , PAREAI 6 , 3 , 3 ) , I D I 8PA<  8 , 6 ) , 

+  I DG5PAC 8,6 > ,  NLSEGS .ACLNSGC 12,25) 

COMMON  /AC ID 53/ 

1  NWCA3E , OES 1 ( 8 ) , I RNWY  (2,6) 

COMMON  /DEFALT/ 

1  N?.”S. ITAPE,ACLNDY,ACLNDZ, 

2  TCVSDF .TCHBDF .TCHODF .TCDYDF , 

3  TCDZDF  ,  RUDSDF  ,  RUTSDF  ,  P.UVSDF  , 

4  RUHSOF  ,  RUHODF  ,  RUDYDF  ,  RUDZDF  , 

5  TFDZDF,TFQDF,TFH6DF,TFHOOF, 

6  eg:kov.egckdz,acmlpl,ardsdz. 

7  A7DSCY ,ATD3DZ , TCDSDF , TCTSDF , 

8  F?DFLT,TDOFLT,RFDFLT,SFDFLT, 

9  PFJFLT,TF0FLT,TFDYDF,MINUS(6) 


SET  ERROR  INDICATOR 


IERR-1 


**"’*  DATA  SET  4  -  AIRBASE  AIRCRAFT  AND  RUNWAY  TOTALS 

READ  (5,8675)  AB1234 
8375  FCRMAT(Al) 


CARD  TYPE  1 

READ (5,5)  NACTYP, NRNWYS, NPKAR , NVI NDS , NLSEGS 
5  FORMAT <  515 

NACTYP  -  NUMBER  OF  AIRCRAFT  TYPES  (  K-NACTYP08  > 

NRN'./YS  -  NUMBER  OF  RUNWAYS  USED  (  1<-NRNWYS<»6 ) 

).°K^R  -  NUMBER  OF  PARKING  AREAS  (  1<«NPKAR<»6  > 

WINDS  »  NUMBER  OF  SPECIAL  WIND  CONDITIONS  <8K»NWINDS<»3 ) 
NLSEGS  «  NUMBER  OF  TAXIWAY  SEGMENTS  <  1  < -NLSEGS< -25  ) 

*"**  DATA  SET  5  -  AIRCRAFT  ACTIVITY 

REaD  (5,S;-£;  AB1D34 

j  i a=»  i  ..,c~yp 


TYPi 


READ  < 5, :  / 
1  FO.v’!AT(  18. 
C 

C*  IACTYP ( !m 

C*  A'N.,RRC  IA  . 

C*  ANVDEP; IA. 

'•  / 


IACTYP ( IA  > , ANNARR( IA ) ,ANNDEP( IA ) , ANNTGO( IA) 
SF12.0) 

=  AIRCRAFT  IDENTIFICATION  NUMBER 
=  ANNUAL  ARRIVALS  ( 1 . <»APNARR  ) 

=  aNNUAL  DEPARTURES  ( 1 . < *ANNDEP  > 

*  ANNUAL  TOUCH-AND-GO’S  ( 1 . < -ANNTGO ) 
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6 


•M  it  it  » 


CONTINUE 

■S' 

DATA  SET  6  -  AIRCRAFT  PARKING  AREAS 
READ  (5,8575:'  A81234 
DO  3  IK-1, NFKAR 
CARD  TYPE  1 

READ  ( 5 , 4  >  IDPRKA( IK),NPASQ( IK ) , < ( PAREA( IK, IQ, J ) ,J- 1 , 3 > , IQ- 1 , 3 > 
FORMAT! 218, SriZ.Z) 

IDPRKA( IK '  =  PARKING  AREA  IDENTIFICATION  NUMBER 

NPA3Q(  IK  >  -  NUMBER  OF  SCUARSS  IN  PARKING  AREA  (  1  <-NPASQ<-3  > 

PAREAt IK.IQ.l )  -  X-COOP.DINATE  OF  CENTER  OF  SQUARE  IQ  (KM) 

PAREA< IK, IQ. 2  >  »  Y-COORDINATE  OF  CENTER  OF  SQUARE  IQ(KM) 

PAREA( IK, IQ. 3  j  -  LENGTH  OF  S  IDE  OF  SQUARE  IQ(KM> 

CONTINUE 

DATA  SET  7  -  AIRCRAFT  TAXIWAY  SEGMENTS 
READ  (5,8676)  AB1234 
DC  S  IS-1 ,  NLSEGS 
CARD  TYPE  1 

READ  (5.7)  IDSG,(ACLNSG(J,IS),J-1,8) 

FORMAT < 18. 3F 12.0) 

I  D3G  -  SEGMENT  IDENTIFICATION  NUMBER 
ACLNSGU.IS)  »  X-COORDINATE  OF  START  POINT  (KM) 

ACLISGf 2, IS >  -  Y-COOROINATE  OF  START  POINT  (KM) 

ACLNSG(  3,  IS  ■  HEIGHT  ABOVE  GROUND  OF  START  POINT  (M) 

-  ACLNDZ/2 .  IN  DEFAULT 
ACL.'ISG(  4,  IS  )  »  WIDTH  OF  LINE 

-  ACLNOY  IN  DEFAULT 

ACL-ISG(5,  IS)  -  INITIAL  VERTICAL  DISPERSION  PARAMETER 
»  ACLNDZ  IN  DEFAULT 

ACL:ISG(  6 ,  IS  >  -  X-COORDINATE  OF  END  POINT  (KM) 

ACL  MSG  (7,13)  -  Y-COORDINATE  OF  END  POINT  (KM) 

ACLNSG! 8. iS >  *  HEIGHT  ABOVE  GROUND  OF  END  POINT  (M) 

-  ACLNDZ/2.  IN  DEFAULT 

SET  DEFAULT  VALUES 

Ir(ACLNSG( Z . IS  > ,LE .0.  1  ACLNSG( 3 , I S > -ACLNDZ/2 . 

IF ( ACLNSG( A, IS >.LE.0. )  ACLNSG< 4 , IS  >-ACLNDv 
IF- ACL NSG. =. ID ) .LE .0. >  ACLNSGi 5 . IS  )=ACLNDZ 
IF :„CLHSGv c. IS  )  ,LE .2.  >  ACLNSG' 3 . IS ) -ACLNDZ/2. 

SET  REMAINING  TAXIWAY  DATA 

ACL"ISG(  S.  IS  i-l  . 

.vOL.‘iSG(  IV.  IS  :  =  1  . 

aCL:ISG( i ’  . IS . =SGRT( ( ACLM3G( 6. IS )-ACLNSG( 1 , IS  )  >**2 
1  -■  ACL  ISG( 7, IS )-ACLNSG( 2. IS  )  >**2  ) 

AC_ISG(  12.  IS  •“1  . 

CONTINUE 

DAT.,  SET  3  -  AIRCRAFT  RUNWAY  INFORMATION 


o  o  o  r»  < ■>  o  nnnnnn  o o  o  o  o o  o  n  o  o  «'i  o  n  n  o  o  > ;  o  o  o  n  o  o  o  r>  c>  o  o  n  o 


READ  <5, 8676)  AB 1 234 


*  CALCULATE  TOTAL  NUMBER  OF  WIND  CONDITIONS 

NVIMDS-NWINDS+I7 
00  :e  IR-l.NRNWYS 


»•  CARD  TYPE  1  (RUNWAY  GEOMETRIES) 

READ  (5.11)  I RNWY ( 1 ,IR),(RNWY( J, IR > ,0-2 , 7 ) , DISRNWt IR) 
11  FORMAT! IS. 3F 13.3) 


I R  NVY ( 1 , IR) 
P.SWYC  2, ! R  ) 
RNVY( J , IR) 
RMVY ( 4 , I R  ) 

RNVY( 5, IR  ) 

RNW •" (  6  ,  IR  ) 

RNWY ( 7 . 1 R ) 

d:srnw( IR > 


RUNWAY  IDENTIFICATION  NUMBER 
X-COORDINATE  OF  RUNWAY  BEGINNING  (KM) 
Y-COORDIMATE  OF  RUNWAY  BEGINNING  (KM) 

HEIGHT  Or  AIRCRAFT  ENGINE  (M) 

ACLNDZ/2 .  IN  DEFAULT 

INITIAL  HORIZONTAL  DISPERSION  PARAMETER  (M) 
ACLNDY  IN  DEFAULT 

INITIAL  VERTICAL  DISPERSION  PARAMETER  <M> 
ACLNDZ  IN  DEFAULT 
RUNWAY  ORIENTATION  (DEG) 

RUNWAY  LENGTH  (KM) 


***  SET  DEFAULT  VALUES 


I F  <  RNWY  <  4 , 1 R  > . L  E . # . )  RNWY( 4 , IR >-ACLNDZ/2. 

I F ( RNWY ( 5 . IR  > . LE .0. )  R NWY (5, IR)* ACLNDY 
I  F  (  RNWY  (c.lR).LE.Jj.  )  RNWY(  6  .  I R  ) -ACLNDZ 

«**  CARD  TYPE  2  (RUNWAY  WIND  DIRECTION  USE) 

P.EAD<  5,12)  !ORW,(  IUSWD(  IW,  IR  ) ,  IW-1  ,NWINDS  ) 

12  FORMAT! ( S , 2312 ) 

*  I  DRW  -  RUNWAY  IDENTIFICATION  NUMBER 

-  IUSWD(IW.IR)  -  RUNWAY  USE  INDICATOR  FOR  WIND  CONDITION  IW 

*«*  CARD  TYPE  3  (RUNWAY  ARRIVALS) 

READ  (5,15)  I  DRW, ( RNWYARt IA,IR),IA-I,3) 

15  FORMAT! IS. 3F 13.0) 

*  IDRW  -  RUNWAY  IDENTIFICATION  NUMBER 

*  RNWYARI IA. IR)  -  ANNUAL  ARRIVALS  OF  AIRCRAFT  IACTYP(IA) 

"**  CARD  TYRE  A  (RUNWAY  DEPARTURES) 

READ  (5,15)  I  DRW. ( RNWYDP ( IA,IR),IA«1,8> 

*  ID-'V  -  RjNVAY  IDENTIFICATION  NUMBER 

*  R-iV  DPdA.IR:  »  ANNUAL  DEPARTURES  OF  AIRCRAFT  IACTYP(IA) 
***  CARD  TYPE  5  (RUNWAY  TAX  I  WAYS) 


RS.O  (5.5)  I  DRV/ ,  M I BTT (  I R  ) ,  N05TT  (  I  R  > 

T DRW  -  RUNWAY  IDENTIFICATION  NUMBER 

,.  I  i  "7;  I R )  =  NUMBER  OF  INBOUND  TAXIWAYS  <0<»MBTTO8> 
(05TT ( I R  i  =  NUMBER  Gc  OUTBOUND  TAXIWAYS  ( 0< -NOBTT <  =3  > 


C***  =R0CE3S  I  NiO'JfiD  TAX  IV/AYS 
C 

I BTT(  i?  ? 
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IFfNX.EO.tf)  GO  TO  2 233 
DC  22  IX-l.NX 


**  CARD  TYPE  6  (INBOUND  TAX IWAY  USAGE > 

READ  (5,21)  ! DRW, I D IBTW( IX, IR), I D I BPA(  IX, IR), 

1  (TTAP.FRI  IX, IA,  IR),  IA-1  ,8  > 

21  FORMAT< 315, 8F 18.8) 

I  DRV  -  RUNWAY  IDENTIFICATION  NUMBER 

IDI3TW( IX, IR)  -  INBOUND  TAXIWAY  IDENTIFICATION  NUMBER 

:0IBPA( IX. IR)  -  PARKING  AREA  IDENTIFICATION  NUMBER 

T7ARFR< IX.1A.1R)  ■  FRACTIONAL  TAXIWAY  USAGE  BY  AIRCRAFT  IACTYP(IA) 

**  CARD  TYPE  7  (INBOUND  TAXIWAY  SEGMENTS) 

READ  (5.24)  I  DRW, IDTX, IDPK.NIBSEGt IX,IR>,( IIBSEGl IS.IX.IR), 

1  IS-1,16) 

24  FORMAT ( 416, 1616) 

I  DRW  -  RUNWAY  IDENTIFICATION  NUMBER 

IDT:  »  INBOUND  TAXIWAY  IDENTIFICATION  NUMBER 

IC?'<  -  PARKING  AREA  IDENTIFICATION  NUMBER 

f!!33EG( IX, IR)  -  NUMBER  OF  TAXIWAY  SEGMENTS  ( 1<-NIBSEG<-16 ) 

1 1 B3EG< IS.IX.IR)  -  IDENTIFICATION  NUMBER  OF  TAXIWAY  SEGMENT  IS 

22  CONTINUE 

’**  PROCESS  0UT30UND  TAXIWAYS 


[220  CONTINUE 

NX=UOBTT< IR) 

IFINX. EQ.0)  GO  TO  10 
DC  -0  ix-i.nx 


**  CARD  TYPE  8  (OUTBOUND  TAXIWAY  USAGE) 

READ  <3.21:  I  DRW, I DOBTV( I  X , I R ) , I DCBPA( I X , I R ) , 

1  (TTD?FR( IX,IA,IR),IA-1,8) 

I  DRW  -  RUNWAY  ID  NUMBER 

IDOBTV< IX, IR)  -  OUTBOUND  TAXIWAY  IDENTIFICATION  NUMBER 
M-Oi?A< IX, IR)  «  PARKING  AREA  IDENTIFICATION  NUMBER 

rTD-FR( IX. IA.IR)  -  FRACTIONAL  TAXIWAY  USAGE  BY  AIRCRAFT  IACTYP(IA) 

**  CARD  TYPE  9  (OUTBOUND  TAXIWAY  SEGMENTS) 

REA;  <5,24.'  I  DRW,  IDTX,  IDPK.NOBSEGt  I  X  ,  I  R  ) ,  (  I  DBS  EG  (  IS.IX.IR), 

1  IS-1,16) 


:D*V  =  Rl*IJWAY  IDENTIFICATION  NUMBER 
*DT  :  =  TAXIWAY  IDENTIFICATION  NUMBER 

.  =  parking  area  identification  number 

JOOSEGI  I .  IP  ;  =  NUMBER  OF  TAXIWAY  SEGMENTS  (  1  < «NOBSEG<  =  1 6  ) 
IC3E£G( IS.IX.IR)  =  IDENTIFICATION  NUMBER  OF  TAXIWAY  SEGMENT  IS 


4  7  CCiriHUE 
'**  END  RUNWAY  LOOP 
12  CONTINUE 

'**  RESET  ERROR  INDICATOR 


OOO  OOOOOOOOO  O  O  <  I 


SUBROUTINE  GRDSRVUERR) 


*****  ACCEPT  AIRCRAFT  GROUND  SERVICE  DATA 
COMMON  /ACEDB2/ 

1  NACTYP , NRNWYS . NPKAR , IEGFLG , 

2  IACTYP ( 8 ) , ANNARR1 8 ) , ANNDEP ( 8  > ,ANN7G0(  8  > , 

3  ARRFCN(24.6).DEPFCN(24,6),TGO(3,4>.DISRNV(6), 

4  RNWY ( 7 . 6 ) , I U SWD ( 20 . 6 ) , RNWYAR (8,6), RNWYDP <  8 , 6 ) , 

5  ACFUEL(8),ARFLVT(8),DPFLVT<8),ACSPIL(8), 

6  ARSVEM( 6,8,5), DPSVEM( 6,8,5), NI BTT< 6>,NIBSEG(8,6), 

7  1 1  BSE  3(16,8, 6), IDI BTW<  8,6), TTARFRI 8,8,6). NOBTT( 6 ) , 

8  NOBS£G(8,6), IOBSEGI 16,3,6^,IDOBTW(8,6), TTDPFR( 8,8,6) 

9  NPASO( 6 ) , I DPRKAv  5>,PAREA(6,3,3),IDI3PA<3,6), 

♦  IDOBPA(8,6),NLSEGS,ACLNSG< 12,25) 

COMMON  /ACEDB3/ 

1  NWCASE ,JES1( 8 ) , 1RNWY( 2,6) 

COMMON  /DEFALT/ 

1  NPLTS, ITAPE .ACLNDY.ACLNDZ. 

2  TCVSDF.TCHBDF, TCHODF , TCD YDF , 

3  TCDZDF.RUOSDF, RUTSDF , RUVSDF , 

•i  RUHBDF.RU  HO  DF.RUDYDF.RUDZDF, 

5  TFDZDF .TFQOF .TFHBDF , TFHODr , 

6  EGCKDY , EGCKDZ , ACMLPL , ARDSDZ, 

7  ATDSDY.ATDS0Z.TCD3DF.TCTSDF, 

8  FPOFLT.TDDFLT.RFDFLT.SFDFLT, 

5  PFDFLT.TFDFLT.TFDYDF .MINUSf 6 > 

INTEGER  GCNAME .GSNAME 
COMMON  /GSEDB 1 / 

1  NSFLS , I SFMAP <  5 ) , 

2  GCNAME (15), 

3  GSNAME<50).IGSCAT<50), 

4  1GSFLT<  50),GSFF( 50) ,GSEMFC<  6,50), 

5  GSRVCT1 50,50! , 

6  GSFUELl 5  !  .NGSTYP . IGSTYP( 30) , 

7  GSUSGE ( 30 ) , IGSAGN ( 3,30), 

3  GSE7IM( 8,30) 

*•**  SET  ERROR  INDICATOR 

IERF.-1 

****  DATA  SET  9  -  GROUND  SERVICE  EQUIPMENT  EMISSIONS 

READ (5,8076)  AB1234 
3576  FORMAT ( A 1 ) 

***  ZERO  DATA 

DC  70  IU-1  .5 
C  3  F  :J  E  L  <  IU  >  =  0. 

30  CONTINUE 

DO  .  0  TC=i .70 
, G 3 ~ Y P (  IQ  )  *0 

giucgei  ig  )»0. 

CO  -0  I A= 1 .3 
:OSAGN(  IA. IG  >»0 

40  CONTINUE 

**  CARD  TYPE  1  ( GSE  FUEL  USAGE) 

READ (5,41  >  NGSTYP, (G3FUEL(IU).IU*1. NSFLS) 

41  r  ORMAT (  I4.4X.5F8.3) 


'  '  '  '  **  ‘  •  ' 

", 

' « 

- 

— 

r 

c 

a. 

c* 

NGSTYP  -  NUMBER  OF  GSE  TYPES 

. 

c* 

GSFUELUU)  «  ANNUAL  CONSUMPTION  OF  FUEL  IU  (GAL) 

i 

c* 

-/ 

c* 

I U- 1 :  GASOLINE 

V- 

c* 

IU-2:  UP-4 

- 

c* 

IU-3:  DIESEL 

c* 

I U-4 :  UP-8 

1 

c« 

IU-5:  -UNASSIGNED- 

c 

. 

r*** 

CARD  TYPE  2  (GSE  INVENTORY  AND  USAGE) 

- 

c 

DC  -15  IG-1. NGSTYP 

READ( 5,42)  IGSTYP< IG),GSUSGE( IG),( I GSAGN< I A , I G  > , IA- l , NACTYP  > 

42 

FORMATt  I4,F10.0,6X,8I1  ) 

c 

il 

c* 

IGSTYP(IG)  -  IDENTIFIER  FOR  GSE  IG 

c* 

GSUSGE(IG)  -  PERCENTAGE  USE  OF  GSE  IG 

c* 

IGSAGN< IA, IG >  -  USE  INDICATOR  OF  GSE  IG  ON  AIRCRAFT  IA 

c 

45 

CONTINUE 

c 

£**** 

DATA  SET  10  -  AIRCRAFT  REFUELING,  SPILLAGE.  AND  VENTING  TOTALS 

c« 

c 

RcAD( 5 , 3676  >  AB1234 

c 

c*** 

ZERO  DATA 

c 

DO  20  IA-1,8 

UES:< IA  i-0 

X 

2j0T 

ACF'JEL  (  I A  )  *0 . 

AC3P I L  <  I A )«0. 

ARr LVT(  IA  >»0. 

DPFLVTf IA>-0. 

CONTINUE 

.. 

c 

c*** 

CARD  TYPE  1  (FUEL  IDENTIFICATION) 

c 

REACTS, 849  )  (DESK  I A  ) ,  IA- 1  ,  NACTYP  > 

9 

849 

FORMAT< 8X.8I8) 

C 

C* 

UESKIA)  -  FUEL  IDENTIFIER  FOR  AIRCRAFT  IA  (K«UES1<«7) 

c*** 

CARD  TYPE  2  (REFUELING  DATA) 

READ( 5,11  )  INFL , ( ACFUEL (  I A  )  , I A- 1 , NACTYP  ) 

1 1 

F0RMA7(  U.4X.3F8.3) 

« 

c 

c* 

INF'.  -  DUPLICATION  INDICATOR  FOR  REFUELING 

C" 

A.C-U£L(IA>  »  REFUELING  VALUE  FOR  AIRCRAFT  IA  (LITER/OP) 

c 

*»** 

CARD  TYPE  3  v'UEL  SPILLAGE) 

c 

c 

c* 

r  E A L ( 5 , 11)  I  NFS , ( ACSP I L ! I A  ), IA- ! . NACTYP > 

i 

INFS  •  DUPLICATION  INDICATOR  FOR  SPILLAGE 

c« 

•S=IL!IA)  »  FUEL  SPILLAGE  FOR  AIRCRAFT  IA  (LITER/OP) 

c 

*.-»RD  TYPE  4  (FUEL  VENTING  FOR  ARRIVALS) 

READ! 5,11)  INAV, ( ARFLVT;  I A  )  , IA»i .NACTYP ) 

'  4 

i  -• 

I WAV  »  DUPLICATION  INDICATOR  FOR  ARRIVAL  VENTING* 

1 

► 

c« 

! 

ARR.VT(IA)  =  -UEL  VENTING  FOR  ARRIVING  AIRCRAFT  IA  (LITEP./OP) 

79 

i 

_  J 

ooo  nnnnnn  ooo 


*  *•» 


CARD  TYPE  5  (FUEL  VENTING  FOR  DEPARTURES) 
READ( 5,11  )  I NDV , ( DPFL VT< I A ) , I A- 1 , NACTYP ) 


INDV  -  DUPLICATION  INDICATOR  FOR  DEPARTURE  VENTING 
DPFLVT(IA)  -  FUEL  VENTING  FOR  DEPARTING  AIRCRAFT  IA  (LITER/OP) 

CHECK  FOR  DUPLICATION 


DO  60  IA-I, NACTYP 

IFC INFL.LE.l >  ACFUEL ( IA>-ACFUEL( 1  ) 
I F ( INFS.LE.l  )  ACSP IL< IA)-ACSPIL(  i  ) 
I F < INAV.LE. 1 >  ARFLVT< IA )*ARFLVT( 1  ) 
I F ( INDV.lE. 1  )  DPFLVT< I A >»DPFLVT< 1  ) 
60  CONTINUE 


***  RESET  ERROR  INDICATOR 

IERR-0 

RETURN 

END 


30 


C'JEP.OUTINE  ACEFCT 


COMPUTE  AIRCRAFT  EMISSION  FACTORS 


INTEGER  ACNAME , EGNAME , ENGNO 
REAL  LNDSPD 
COMMON  /ACEDE 1 / 

l  ACEMFC< S , 10, 6 ) .ACNAME ( 50) ,E6NAME( 50) ,EN6NO( 50,2), 

l  A3CN71 <  50  > ,ASCNT2( 50 ) , TX 1SPD( 50  > , LNDSPD( 50  > , 

3  APSPDi! 50),COHT1( 50) ,AP SPD2( 50 > , TOSPO( 50 ) , 

X  COSFD! < 50)  ,COSPD2< 50 ) . SRTUPTI 50 > , DSCNT1 <  50 ) . 

5  ESCHKTt  50  > ,  5HTDMT(  50  >  ,  DSCNT2<  50  >  ,APPHT, 

5  A?  PnT2( 50  > , CLMBHT , TOWT <  £0 ) 

COMMON  /ACEDB2/ 

1  NAC7YP  ,  NP.NWYS ,  NPKAR.IEGFLG, 

2  IACTYP <  3  )  .ANNARR! 8 ) , ANNDEP ( 3 ) ,ANNTGO( 8 ) , 

3  ARRFCM!  24,6),0EPFCN(24,6) , TGO( 3,4) . D I SRNW( S ) , 

X  RNWY( 7 , 5 ) , I USWD (20.6), RNWYAR (8,6), RNWYDP( 8,6), 

5  A2FUEL!  8  >,ARFLVT( 8  > , DP?LVT( 8 > ,ACSP IL<  8 ) , 

3  ARSVEM! 6,8,5 ) ,DPSVEM( 6, 8 ,5 ) ,NIBTT( 6 ) ,NIBSEG(8,6) , 

7  1 1 3SEG( 1 6 , 8 , 6  ) , I D I 8TW< 8,6), TTARFR( 8.8,6), NOBTT< 6 ) , 

3  NO ESEGi 8,6) . IOBSEG( 16.8,6), IOOBTUf 8.6) ,TTDPFR( 8,8,6) 

3  NPASCK 6 ) , IDPRKA( 6  > , PAREA( 6,3,3),IDIBPA(S,6), 

►  ID03PAC  8 ,6  )  ,NLSEGS,ACLNSG<  12,25) 

REAL  LUEl-IFC 
COMMON  /FMFD61/ 

1  EGEMFC( 6 , 4 , 50 ) , PL NAME ( 6),PPEMFC(22,6),EMFCIN(5,6), 

2  TFEMrC( 6 ) , LUEMFC( 9 ,6  )  ,ALPHA<  7  )  .BETA! 7 ) , 

3  FLOSN  5 ( 7  ) , FLMAME (7),AFEMFC(2,6,6) . ATEMFC!  2,6,6), 

X  CSEMFC ( 6 , 6  ) , AFCSEM<  6 , 6  > .AFSOAK , ATSOAK , 

5  ArlRTH  ,  ATBPvTH  ,  FLTFCT!  7  ),FIXFCT(  7  ) , 

5  W.RKFCT!  7  > 

INTEGER  THMAME 
COMMON  /EGECSl/ 

1  MO NAM i ( 10) ,THNAME( 4 ) ,MONAM2< 10 > , IDACEGC 50) , 

2  IACAEP  (  50  > ,  EGFF 4 , 50  > ,  I EGABF  (  50  ) .  I  DRR<  50) 

DIMENSION  ACEi«1HR<  4  ) 

LOO?  OVER  AIRCRAFT  TYPES 

DO  240  I A* 1 , S 
DC  210  IP-1 .5 
DO  210  17=1.4 
ACEMFC( IA, IT, IP )-0. 

CONTINUE 

:dac> iactyp: :a) 

if.'  IDAC.EQ.0)  GO  TO  240 

I2EG*I0ACEG< IDAC ) 

DO  220  I P= 1 . 6 
DO  220  IT- 1 .4 

aCEMHR( IT)=EG:MFC!  IP  ,  IT. I0EG )*EGFF( IT, IDEG )/ 2. 20462 
CCN“INUE 

’ F ,  ! ACABF <  IDAC  )  . EQ.0)  ACEMHR! 4  )=ACEMHR( 3 ) 

ADE'-iFC!  IA  .  1  .  I?  ■  -ACEMHR;  1  ) 

IF  I  2 AC .£0.2) 

I  ATEMFC  •  !  A.  1  .  IP  >=*0. 7  =  *ACEMHR(  1  )+0. 25*ACZMHR(  2  ) 

ace:;fc(  ia.2.  ip  >-acemhr<  i  > 

IF '  IDAC . EC. 2  ) 

1  A2EMFC-.  IA.2.  I?  >0.75*ACEMHR(  I  > +0 . 25*ACEMHR<  2  ) 

ACEMFC!  I A. 2. IP  )  =AC EMHR ( 2  ) 

I  -  I  DAC  .  EO.  2  - 

I  A22MFC'  IA.2. IP  )  =0 . 75*ACEMHR<  1  >+0 . 23*ACEMHR( 2 ) 

idac.eo. d i 


Copy  nvaiTo!  ‘n  V)~m  _  . 


o  o  o  o  o  o  non 


SUBROUTINE  GSEFCT 


COMPUTE  GSE  EMISSION  FACTORS 


INTEGER  ACNAME , EGNAME , ENGNO 
REAL  LNOSPO 
COMMON  /ACEDB1/ 

1  ACEMFCl  8 , 16,  6  > ,  AC  NAME  (  56 ) .  EGNAME  <  56  > ,  ENGNO(  56,2), 

2  A3CNTK56)  ,ASCNT2(  50>,TXISPD(50),LNDSPD<  56), 

3  APSPOi ( 56 ) , COHT1 <  56 ) ,APSPD2<  50 ) ,TOSPO( 56 ) , 

4  C0SPDK56)  ,COSPD2(  50  ) ,  SRTUPT(  50 ) ,  0SCNT1  (  56 ) , 

5  EGCHKT ( 50) , SHTDNT ( 50 ) , DSCNT2<  50) ,A?PHT , 

6  APPHT2( 50 ) , CLM6HT, TOWT ( 50 ) 

COMMON  /ACEDB2/ 

1  NACTYP , NRNWYS.NPKAR, IEGFLG, 

2  IACTYP ( 8 ) , ANNARRC 8 ) ,ANNDEP<  8  ) , ANNTGOI 8  ) , 

3  ARRFCN( 24 , 6 ) , DEPFCN<  24 , 6 ) ,TGO( 3 , 4 ) , D I SRNWC  6 ) , 

4  RNWY ( 7 , 6 ) , I USWO ( 20, 6  > , RNWYAR< 8,6), RNWYDP ( 8,6), 

5  ACFUEL(8),ARFLVT(8),DPFLVT(8),AC5PIL(8), 

6  ARSV£M<6,8,5>,DPSVEM<6,8,5),NIBTT(6>,NIBSEGC8,6), 

7  1 1 BSEG< 16,8,6).IDIBTW(8,6>, TTARFR( 8,8,6), NOBTT( 6 ) , 

8  NOBSEGC  8,6 ) ,IOBSEG<16,8,6> , IDOBTW( 8,6 ) ,TTDPFR( 8,8,6), 

9  NPA3Q( 6  ) , IDPRKAI 6  ) , PAREAt  6 . 3 , 3  ) . I D IBPA( 8 , 6 ) , 

+  I OOBPAt 8,6  ),NLSEGS, ACL NSG ( 12,25) 

COMMON  /ANNMET/ 

1  TBAR , ADD , P , PA , 

2  WSBAR . DTBAR , AMD BAR 
COMMON  /DEFALT/ 

1  NPLTS, ITAPE.ACLNDY.ACLNDZ, 

2  TCVSDF , TCHBDF , TCHODF , TCD YDF , 

3  TCDZDF , RUDSDF , RUTSDF , RUVSDF , 

4  RUHBOF .RUHOOF , RUDYDF , RUDZDF , 

5  TFDZDF .TFQOF .TFHBOF .TFHODF , 

6  EGCKDY ,EGCKOZ,ACMLPL .ARDSDZ, 

7  ATDSDY , ATDSDZ ,TCDSDF,TCTSDF, 

3  FPDFLT.TDDFLT.RFDFLT.SFDFLT, 

9  PFOFLT.TFDFLT.TFDYDF , MINUS! 6  > 

INTEGER  GCNAME .GSNAME 
COMMON  /GSED31/ 

1  NSFLS , ISFMAPI 5 ) , 

2  GCNAME (15), 

3  G$NAME< 50) , IGSCATI 50) , 

4  IGSFLT(50>,GSFF(50),GSEMFCC6,50>, 

5  GSRVCTI  50,50), 

6  GSFUEL( 5  )  .NGSTYP . IGSTYP ( 30  ) , 

7  GSUSGE ( 30) , IGSAGN<  8,30), 

8  GSETIM( 8,30) 

DIMENSION  ANNLTO(8),TMPFCT( 15) 

DATA  THE  AT/ 40. / .TCOOL/80. / 

'•*  ZERO  OUTPUT 

DC  110  IU-1.5 
dc  ; 10  ia»: ,8 

DC  ; 10  IP-1  .6 
AR37EM< IF , IA, IU  >«0. 

DPS  .'EM(  I?  .  1A.  IU  >-0. 

110  CONTINUE 

•**  COMMUTE  ANNUAL  LTO'S 


DO  120  IA-1, NACTYP 

AMN_TO( IA )  =  <  ANNARR( I A ) +ANNDEP< IA ) ) / 2 . 
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non  o  i .  o  nnn  o  n  o  o  o  o  nor*  nnn 


120  CON“INUE 


»**  IDENTIFY  TRANSIENT  AIRCRAFT 
IATRN-0 

DO  130  IA* 1 , NACTYP 
IDAC- IACTYP ( IA) 

I F  (  ACNAME  <  IDAO.EQ.  'TRANSENT'  )  IATRN-IA 
130  CONTINUE 

»*«  COMPUTE  TOTAL  ANNUAL  LTO'S  LESS  TRANSIENTS 
TANLTO-0. 

DO  140  IA-1. NACTYP 

! F < IA . NE . IATRM )  TANLTO-TANLTO*ANNLTO< IA) 

140  CONTINUE 

*»*  ZERO  GSE/TRANSIENT  ASSIGNMENTS 

IF  C IATRN.EQ.0)  GO  TO  200 
DO  150  IG“ 1 . NGSTYP 
IGSAGNl 1ATRN, IG>-0 
150  CONTINUE 

***  COMPUTE  TEMPERATURE  ADJUSTMENT  FACTORS 
200  CONTINUE 

TMPFCT! 1 )-!.-<  TBAR-THEAT )/2 . /DTBAR 
I F ( TMP FCTI1).LE.0.)  TMPFCT ( 1 >-0. 

I F  (  TMPFCT \  1  ) .  GE  .  1  .  )  TMPFCT (  1  >-  l  . 

TMPFCT! 2 )- 1 . -( TCOOL-TBAR )/2 . /DTBAR 
IF ( TMPFCT!  2 ) . LE .0.  )  TMFFCT<2)«0. 

!F< TMPFCT< 2 ) .GE. I . 1  TMPFCT<2)«1. 

CO  210  IC-3,15 
TMPFCT!  10-1 . 

210  CONTINUE 

’**  INITIALIZE  AVERAGE  SERVICE  TIMES 

DO  310  IG-1, NGSTYP 
IDGS-IGSTYP! IG > 

I C- I GSCA"! IDGS  ) 

U3ErCT -GSUSGE  v IG )*TMPFCT< IC )/100. 

DO  310  IA-1, NACTYP 
IDAC-IACTYP!  IA  > 

GSETIM(  IA, IG  >-0. 

:c( IGSAGN! IA, IG  > .NE .0)  GSETIMI IA , IG )-USEFCT*GSRVCT( IDAC, IDGS) 
310  CONTINUE 

***  INITIALIZE  AVERAGE  SERVICE  TIMES  FOR  TRANSIENTS 

IF':  IATRN.EQ.0-  GO  TO  400 
DC  D30  IG-1. NGSTYP 

~:m=0. 

DO  320  IA-1. NACTYP 

IF(  lA.NE. I A  ~  M  )  TIM»TIM*ANNLTO(  IA)*GSETIM(  IA.IG) 

320  CONTINUE 

GSETIMI IATRN, IG l-TIM/TANLTO 
I  F  '  “  I M  .  G  T  .  0 .  )  IGSAGNI  I ATRN , I G  )  - 1 
330  CONTINUE 

ADJUST  AVERAGE  SERVICE  TIMES 
A-CC  COH“ I iNUE 


I 
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non 


00  450  IU- 1  , NSFLS 
GSf-0. 

DC  4 ZB  IG-l.NGSTYP 

:dgs-igstyp< ig  > 

IF<  IGSFLT<  IDGSKNE.IU)  GO  TO  42J0 
FF«GSFF< IDGS) 

DO  410  IA-1.NACTYP 
GSF-GSF*ANNLTO<  IA )*FF»GSETIM< IA, IG) 

410  CONTINUE 
420  CONTINUE 
ACJ-1  . 

I.T<GSF  .GT.0.  )  ADO-GSFUELI  IU)/GSF 
DO  440  IG-l.NGSTYP 

:dgo-igstyp< ig  > 

IF( IGSFLTf IDGS).NE.IU)  GO  TO  440 

DO  430  IA-1.NACTYP 

GSET IM( IA,IG)-ADO*GSETIM< I A , I G  ) 

430  CONTINUE 
440  CONTINUE 
450  CONTINUE 

***  COMMUTE  ARRIVAL  AND  DEPARTURE  SERVICE  EMISSIONS 

DO  340  IU-1, NSFLS 
DO  530  IA-1,NACTYP 
AF  -ANNARRC IA )/ANNLTO( IA) 

DF -ANNOEP  < IA)/ANNLTO( IA) 

DO  320  IP-1, NPLTS 
SVEM-0. 

DC  310  IG-1 ,NGSTYP 
I DGS- 1 GSTYP < IG  ) 

I F ' IGSFLT( IDGS).EQ.IU) 

5101CONTlNUEVEM+GSEMFC<IP,IDGS>*6SFF(ID<SS>*eSET1M(IA’IG) 
ARSVEMI  IP  ,  IA,  IU  )-AF*SVEM 
DPSVEMI I P , IA , I U  >-DF*SVEM 
520  CONTI NUE 
530  CONTI NUE 
540  CONTINUE 
RETURN 
END 
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SU3R0UTI N£  ADLNIV<  !U,  IA) 


I 


DEFINE  LINE-SOURCE  GEOMETRY  FOR  ARRIVALS  AND  DEPARTURES 
C*-*«»*  OF  AIRCRAFT  IA  IN  WIND  CONDITION  IW 

C 

INTEGER  ACNAME , EGNAME , ENGNO 
REAL  LNDSPD 
COMMON  /ACED81/ 

1  ACEMFC ( 8 , 10, 6 ) .ACNAME <  50 ) , EGNAME <  50 > . ENGNOI 50 , 2 ) , 

2  A3CN71 ( 50 ) , ASCHT2 ( 50 ) , TX I SPD( 50 ) , LNDSPD( 50 ) , 

3  At* SPD 1  (  50  > , COHTl  (  50  ) ,  AP SPD2<  50 ) , TOSPD<  50 ) , 

4  COSPO 1 ( 50) ,COSPD2( 50 ) , SRTUPT( 50 ) . DSCNT1 <  50 > , 

5  EGCHKT ( 50 ) , SHTDNTI 50 ) , DSCNT2( 50 ) .APPHT, 

6  A??HT2( 50) ,CLM8KT,TOWT<  50) 

COMMON  /ACE DEC/ 

1  NAC7YP , NRNWYS . NPKAR , I EGFLG . 

2  IACTYP ( 3 ) ,ANNARR<  3  > .ANNDEP ( 8 ) ,ANNTGO< 8 ) , 

3  ARRFCNl 24 , 6 ) . DEPFCNl 24 , 5  > ,TGO( 3,4) , DISRNW( 6  > , 

4  RNUY (7,6), IUSWD( 20,6 ) , RNWYARt  8,6), RNWYDP <  8,6), 

5  ACrUELt 3 ) , ARFLVT < 8 ) , DPFLVT( 8  > ,ACS? IL( 8 ) , 

6  AR3VEM( 6,8,5). DPSVEMI 6,8,5) , NIBTT<  6),NIBSEG(8,6), 

7  II3SEG( 16,8,6  >. I DIBTW<  3,6 ),TTARFR( 3,8,6 >,NOBTT(6>, 

8  NOS3EG(8,6  ) , IOBSEG< 16 , 8 . 6 i , IOOBTV( 8.6) ,TTDPFR( 8,8,6), 

9  N?AGQ( 6  ) , IDPRKAl 6  )  ,PA  EA( 6 , 3 , 3 > , ID  I BPA< 8 , 6 ) , 

+  I  jC3PA<  8,6 ) ,NLSEGS,ACLNSG( 12,25 ) 

PEAL  LUEMFC 
COMMON  /EMFD5 1 / 

1  EGEMFC( 6 , 4 , 50 ) , PLNAME<  6 ) , PPEMFC( 22,6), EMFCIN( 5,6), 

2  T?EHFC< 6 ) ,LUEMFC<  9 , 6 > . ALPHAC 7 > , B£TA( 7 ) . 

3  F_0EN3(7>, FLNAME ( 7  > , AFEMFC ( 2 , 6 , 6 ) , ATE MFC  (  2,6,6), 

i  CSEMCC( 6, 6  )  ,AFCS£M<  6,6 ) , AF SOAK , ATSOAK , 

5  AFE.RTH.ATBRTH.FLTFCTC  7  )  ,FIXFCT(7  ), 

6  WRKFCT( 7 ) 

COMMON  /DSTRBT/ 

1  ACMO( 13,50) , ACDY<  2,50) , ACHR( 24,50) , VHMLMOf 13), 

2  VHMLDYt  2  )  . VHMLHRC  24  > ,CVABMO( 13 > ,CVABDY< 2 > , 

3  CVA5HR( 24 ) ,CVENMO( 1 3 ) , CVE ND Y ( 2 > , CVEMHRl  24 ) , 

4  F.MO; 13,7 ) ,FLCY(2,7  > ,  r  LHR( 24 , 7 ) 

COMMON  /ArtfiMET / 

1  TBAR .ADD , P , PA , 

2  W3  BAR. 3 TSAR, AMD BAR 
COMMON  /CZ-alJ/ 

1  H?_T3 , I TAPE , ACLNDY , ACLNDZ . 

2  TCVSDF .TCHBDF .TCHODF .TCDYDF, 

3  TCDZDF .RUDSDF .RUTSDF .RUVSDF , 

4  RUnEDF  ,  F.UHODF  ,  RUDYDF  ,  RUDZDF  , 

5  Tr'.'ZOF  .TFQDF  ,TFH3DF  ,T-nODF  , 

S  EGCKDY.EGCKDZ.ACMLPL .ARDSDZ, 

7  ATOCD,'. ARDSDZ,  TCDSDF  ,  TCTSDF  , 

3  Fa;rL~.TCDFLT,RrDFLT,3FD"LT, 

9  PF:FL“.TFDFLT,TFDYDF , MINUS!  6 ) 

COMMON 

1  20,5  )  .TOTE  VP  (  10  > . EM  I SS<  3 , 1 5 , 6 ) 

INTEGER  7 i LAME 
COMMON  /  E  G  £  0  5  1  / 

1  MO’  AM;  (  10 ,  THNAME  (  4  )  ,MCNAM2(  10  > ,  I DACEG  (  50  ) , 

2  I :^ZaZ-<  50)  ,EGFF<  4,50),  I  EGABF  (  50  > ,  I  DP.R(  50) 


■0  OUTrj  ’J" 


DO  10  I R= 1 . 5 
00  10  L-.  . -A 
ARRFCNl L . I  7  >»0. 
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DEPrCNCL, IR>-0. 

10  CONTINUE 
C 

C****  RETRIEVE  AIRCRAFT  10 
C 

IOAC-IACTY=( IA) 

ir( IDAC.LE.0.OR.51.LE.IDAC)  RETURN 
C 

C***«  COMPUTE  ARRIVAL  AND  DEPARTURE  TOTALS 
C 

ARFSUM-0.0 

DEPSUM-0.0 

DO  20  IR-i.NRNWYS 

:?< IUSWD< iW,IR>.EQ.0>  GO  TO  20 

A?.?.SUM«ARRSUM+RNWYAR<  IA.IR) 

DEPSUM-DEP3UM+RNWY0P; IA, IR) 

20  CONTINUE 

/» 

C**“*  LOO’  OVER  RUNWAYS 
C 

DC  390  IR-l.NRNWYS 
C 

C**»  CHECK  RUNWAY  USAGE 
C 

I r  < I USWD f I W . I R ) . EQ .0 )  GO  TO  390 
C 

C***  RETRIEVE  RUNWAY  DATA 
C  1 

X«P.NWY(  2 ,  IR  ) 

Y»?.NWV(3,  IR  .' 

2*RNWY( A, IR) 

X A » S I N ( RNW < ( 7, IR) ) 

YA*COS( RNWW<  7 . I R ) ) 

C 

C*  PROCESS  ARRIVALS 
C 

ARR*RNWYAR< IA.IR) 

IF (ARR.LE .0.0/  GO  TO  200 
C 

C-»  COMPUTE  TIME/DISTANCE  DATA 
r 

DISCS  =*APPHT2(  ID  AC  )/SIN(  DSCNT2C  IDAC  >  > 

d:s::»(afpht-appht2( idac>  )/sin<  dscntk idac>> 

HjI212*(AP?HT-APPHT2< I DAC > >/7AN( DSCNT1 < IDAC) ) 

HDI323-APPHT2I IDAC  )/TAN< 0SCNT2I IDAC)) 

HDI334«DISRNW( IR ) 

C 

C  TERMINAL  END 
C 

ARR7CN( 19, IR>H0IS3  4*XA  +  X 
A?.R.-CN<  20,  IP.  )-HDIS34*YA  +  Y 
A?.?.*CN(  21  .  IF.  :  ~Z 
«R*FCN<22,  :«TV.ISPD<  IDAC  ) 

C.  TOUCHDOWN  FQINT 

C 

A  E  R  T C  N (  13. I R >«X+0. 304S*XA 
A-,R-C\<  14,  !  K  '»V+0. 304 3* Y A 
ApR-CN<  15.  I  R  ;  =>2 
-RR’CNx  16,  IF.  >=LNDS?D<  IDAC  ) 

ARRrCN( 17.1? )=HDiS34 -0.3048 

ap.r-cn;  18,  :r/=2.0*arr,-c:'k  it,  ir  >/ctxispd<  idac >+lndspd(  idac  > ) 

c 

C  APPROACH  PA~H  POINT  2 


Copy  available  to  DTIC  does  not 
permit  fully  legible  reproduction 


o  o  o  o  n  n  o  o  o  n  o  o  o  o  o  o  n  o  n  o  o  o  o  o  o  o  n  a  o  o  n  o  o  n  o  o  ct  o  o  non  no  o 


ARRFCN<7, IR>-ARRFCN<  13 , IR >-HDIS23*XA 
A.RR"CN(8,  IR/-ARRFCN<  14,  IR)-HDIS23*YA 
ARR“CN(  9  ,  I R  >“1000.  *APPHT2(  IDAC  ) 

«RR"CN(  10.IR)«A?SPD2( IDAC ) 

ARR-CN< 1 1 , IR  >*D IS23 

ARRFCNI 12, IR>«2.0*DIS23/(LNDSPD< IDAC )+APSPD2(  IDAC) > 

APPROACH  PATH  POINT  1 

ARRFCNC  1  ,  IP.  ‘=ARRPCN<  7,  IP  )-HDIS12*XA 
A?.R~CN(  2 , 1  R  =ARRFCN<  8. 1 P.  )-HD  IS  1  2*  VA 
A?.S.FCN<3,  IP.:-*ifl00.«A?PHT 
ASR7CN(  4  ,  IF.  ) “APSPD 1  (  IDAC  > 

A.RR'CN(  5,  IP.  /-CIS  12 

ARRFCN< 6, IK i-2.0«DIS12/<APSPD2< I DAC )+APSPD 1 ( IDAC) ) 

...  PROCESS  DE-ARTURES 

2 00  COflTINUE 

DE?»Ri'iWVDP(  ZA,  IR  ) 

IFICEP.LE.D.tf.'  SO  TO  3 00 

**  COMPUTE  TIME /DISTANCE  DATA 


BYPASS  DEPARTURE  CALCULATIONS 
GO  “0  30.!/ 

*K*vr«***rw*«-*;*****W**** 


DIS23-COHTK I DAC > /S I N< ASCNT1 < IDAC)) 

DI334«<CLMSHT-COHTl<  IDAC  )/SIN<  ASCNT2I  IDAC)  ) 

HDIC12«3.043E-4*P.RDIST< IDRR( IDAC  > , PA,TBAR,TOWT( I DAC ) , 1 .9426*WSBAR ) 
HCI323»COHTlv I DAC  > /TAN< ASCNT1 < I DAC  > ) 

HDIC34*<  CLM5HT-COHT1 < I DAC ) )/TAN( ASCNT2I IDAC)  ) 

STA-  ~  OF  RLMUAY  ROLL 

NS-'iOSSEG<  1  .  IP.  ) 

I  S*  :  03SE3;  US.  1  ,  IP.) 

DE  P  7CN{  1 , IP ;»X 
DE?rCN( 2, IR)-Y 
DEF7CN( 3. IP  '*Z 

u  £  P C  N  <  4  ,  IR>-aCLNSG<  10,IS>*TXISPDC  IDAC) 

DEPP CN( 5 . I R  / *HD I S 1 2 

DE  ?7CN(  6, I? '-2.0"HOIS12/< ACLNSGf 10 , I S  >*TX I SPC ( IDAC >*T0SPD( IDAC)  > 

L  Ir’’0FF  POINT 

D£?“CN( 7. IP  »»X  +  HDIS12*XA 
DE  0  7C  N ( 8, I7  )  «  7  +  HD 1 3 1 Z *  YA 
0E?rCN< 9.1-  =2 
0 •  3  7 CN  (  10, IR >  =  TOSPD(  IDAC  ) 

?737cn(  =dis23 

jEP.-'CM  12.  :K;*2.0*DIS23/(TOSPD{  I  DAC  )+C0S?D  1  <  IDAC)  ) 

cl IM3CUT  -  phase 

DETINUE,:?, :«DEPFCN<  7. !R)  +  HDIS23*XA 
D E ? 7 C N <  14,  . H ,=DEPFCN<3. 1 R  ) +HD I S23»YA 

:7  =  -~ct.<  i  =  .  :r  ,»i000. »coHTi<  idac> 

7 7  =  7 C N (  16.  *C0SPD  1  (  IDAC  > 

...  -  -  CN<  17.1  r.  )»DI  S34 

7CN(  1  3.  i.P  .  *2 .0*U  I  S34/(  CCSr  D  1  <  IDAC  )+C0SPD2(  IDAC  )  ) 
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A 


o  o  o  o  r>  o  o  o 


E,*D  OF  CLIMBOUT  MODE 

DE?FCN<  19,  IP.  >«D£PFCN<  1 3 , I R >+HD I S34*XA 
DEP"CN<20,  IP.>«DEPfCN<  11,  I R  )  +  HD I S34*YA 
DEPrCN(2i,IR  >  *■  1  J0f  J0TJ0T  -  "CLMBHT 
D2?'CN<22,IP>>«COSPD2< I0AC) 


C *•" 

C 

3ge 


c 

c**** 

c 

33.0 


COMPLETE  COMPUTATION 


CONTINUE 

Ir(ARRSUM.GT.£r.£r>  ARRFCN(  23 ,  IR J-ARR/ARRSUM 
AP.Rr  CN<  24,  IR  >«RNWY<  5  ,  IR  ) 

IF <  OEPSUM.GT.0.0)  OEPFCNt  23, IR >-DEP/DEPSUM 
DEP'CN( 24. IR  >«RNWY<  6 . IR  > 

END  RUNWAY  LOOP 


CONTINUE 

RETURN 

END 


oooooooo 


FUNCTION  RRDIST  ( IR.PA.TMP ,GW,WS > 

THIS  FUNCTION  (RUNWAY  ROLL  DISTANCE  >  CALCULATES  THE  TAKE-OFF 
DISTANCE  FOR  A  GIVEN  AIRCRAFT. 

TMP  -  TEMPERATURE  (F> 

PA  -  PRESSURE  ALTIUDE 
GW  -  GROSS  TAKE-OFF  WEIGHT 
WS  -  WIND  SPEED 

IR  -  ID  NUMBER  OF  THE  AIRCRAFT 
RRDIST  -  TAKE-OFF  DISTANCE  (KM) 

T-TMP 
TOF-0. 

GR-0. 

FGR“0.0 

!F< IR.EQ. 100)  GO  TO  100 
C  CORRECT  FUNCTION  IS  CHOSE  BY  AIRCRAFT  ID  NUMBER 

GO  TO  ( 1, 2, 3, 4, 5, 6, 7, 8. 9, 10-.1 1.12, 13, 14,1 5, 16, 17, 18, 19, 20, 21, 22, 

1  23,24,25,25,27,28,29,30,31,32,33,34,35,36,37, 

2  2,  9, 12, 14, 14, 19, 21. 100, 100, 47, 100, 100, 12), IR 

1  CONTINUE 

TOF«<  8 . 4 1 1893E-9*PA*"2  ♦  l . 427498E-5*PA  +  1 . 191424E-3  )*T**2  + 

.< 1.335216E-5«PA**2  +  5.277266E-4  *PA  +1 . 191679E-1 >*T  + 

.  ( 2.417770E-3*PA**2  +  2 . 4897 1 2E- 1 *PA  +9.024811) 

GR-< 1 . 194643E-5*GW**2  -  2.012500E-3-GW  +  l . 856286E-1 >*TOF  + 

.  < 2. 349055£-4*GW*"2  -  6.798513E-4*GW  -  2.780857E-1  ) 

FGR-(GR  ♦( 2 . 9808 1 9F-5"6R**2- 1 . 290746E-2"GR  -  5 . 796299E-2 >*WS >* 100 
GO  TO  100 

3  CONTINUE 

2  TOF--(2.78-3.5714E-4«PA)+( 1 . 82E-2+7 . 2857E-5*PA )*GW 

GR-(  1 . 184E+1-4.2167E-1-T+1 .0E-2*T**2-4 .583E-5*T**3  )  + 

.  <4.194+1 .7197E-2*T-9.26018E-4*T**2)*TOF+ 

.  <  1  . 04  57  +  8. 40E-3*T+2. 11 7E-4*T»*2+2 . 98E-7*T**3  >*TOF**2 

FGR«<GR-< 1 .15E-1+9.0E-3*GR)*WS)*100. 

GO  TO  100 

4  CONTINUE 

5  TOF-( 1 . 589+6. 883E-3*PA+1 . 2767E-4*PA**2 >+ 

.  <  8.819E-3+1 . 1007E-4"PA-3.924E-7*PA**2 >*T+ 

.  <  5.979E-5  +  3. 38096E -7*PA+8 . 532E-9*PA**2  >*T**2 

GR»(-13.25+8.75E-1 *GW- l . 25E-2*GV**2  >  + 

.  <  1.3925E+l-9.275E-l*GW+2. 1 25E-2*GW"*2  )*TOF 

FGR"<  GR-( 1 .316E-1+8.748E-3*GR )*WS  )* 100. 

GO  TO  100 

6  TOF*<  9. 3937E-l+2.0947E-2*PA+2. 005E -4*PA**2 )  + 

.  < 3.746467E-2+4.05625E-4*PA)*T+ 

.  < 1 .9928E-4-5.75006E-6*PA+l . 40234E-7*PA**2 >*T**2 

GR-< 1 . 4307E+1-7.57144E-1*GW+2.6785E-2*GW**2>+ 

.  <  1 .67257E+1-1 . 17762*GW+2.7301E-2*GW**2  >«TOF 

FGR-<GR-<  2.41 2799E-2  +  7. 3297  IE -3*GR  >*WS  >*100. 

GO  TO  100 

7  TOF-< -1 .06E-3+1  .  674E-2*PA+8 . 1 888E-5*PA**2  )♦ 

.  < 1 .36E-2+9.592E-6*PA+l . 755E-6*PA**2 >*T+ 

<  5 . 1099E-5+ 1 . 2Q99E-6  +  PA-6 . 123E-9*PA**2  >*T**2 
GR  =  < -1 . 423E+1+6 . 349998E-1*GW+  1 . 6 6 67E -3*GV** 2  )  + 

<  6 . 1857-3. 2 179E-l*GW+8 . 2 14E-3*GW**2  >*TOF 
FGR=<  GR-<  6.293E-2  +  7 . 328E -3*GR > *VS >*100. 

GO  TO  100 

8  TOF  =  <  9 . 503E-2+3. 313E-2*PA+1  .  3666E-4*PA**2  >  + 

.  <  2 . 2546E-2+ 1 . 7843E-4*PA-4 .04E-6*PA**2  >*T+ 

(  1 .3438E-4-1 .2166E-6*PA  +  4. 1 85 4E -8* P A**2  )*T**2 
GR»<  2.95E+1-2.394*GW+6.497E-2*GW*"2  >  + 

<  3 . 1035  +  7 .52E-2*GW-3. 1 86E-3*GW**2 )*TOF  + 

<  1.2715-1. 5535E- 1 *GW+4 . 33 8 9E - 3"GW" *2  )*TOF"*2 

FGR-<  GP.-<  -9.0E-2  +  1  .  807E-2«GR-7  .  1  4 3E -5*GR** 2  ) *WS  >*100. 

GO  TO  100 


DEVELOPMENT  OF  R  COMPUTER  EMISSION  INVENTORY  ROUTINE 
FOR  AIRCRAFT  GROUND.  .  (U)  RESEARCH  TRIANGLE  INST 
RESEARCH  TRIANGLE  PARK  NC  SVSTEHS  AND  H.  . 

J  E  SICKLES  ET  AL.  30  SEP  81  F/G  9/2 


TOF*( 3.36455E-3+5.63556E-2*PA)+ 

<4.417E-2-2.031£-3*PA+5.63E-5*PA**2-3.9954E-7*PA**3)*T+ 

(  -9.2E-5+2  .08E-5*PA-5 .39E-7*PA**2+3. 8E-9*PA**3  )*T**2 
GR*<  1 .  65838-3. 069E-l*GW+8. 1 363E-2*GW**2 >  + 

(-3. 6111+3. 63559E-1 *GW )*TQF+ 

<7.3975E-1-8.78749E-2*GW+3.2487E-3*GW*"2)*T0F**2 
FGR-<  GR-<  5  .0E-2+7. 4E-3*GR)*WS  >*100. 

GO  TO  1 00 

TOF-< 12.5546-5.7192E-2*PA+1 . 3075E-4*PA**2 >- 
(2.9032E-2-1  .0254E-4*PA-1 . 45 1 25E-7*PA**2  >*T 
GR-<  < -5. 14955E+ 1+2. 57957 *GW-1 .  44  25E-2*GW**2 >- 
(-1 . 1535E+l+5.915E-l»GW-4.6828E-3*GW**2)*TOF+ 

(-6.2285E-1+3. 2375E-2*GW-2 . 9056E-4*GW**2  )*TOF**2  >*1,000. 
FGR-(3.305£+l+9.729E-l*GR+2.3lE-6*GR**2>- 
(8.244+8.3598E-3*GR-1.44E-8*GR**2 )*WS 
GO  TO  100 

TOF*(7.436£-l+4.29E-2* PA )+(2. 1276E-2-3.il l 6E-5*PA)*T 
GR»< 1 .638E  +  1-7.78E-1*GW+2.84E-2*GW**2>  + 

( 3 . 809-1 . 947E- 1 *GW+4 . 264E-3*GW"*2 )*TOF+ 

(-1 .976E-1+1 .5757E-2"GW+4.6139E-4*GW**2>*TOF**2 
FGR«(GR-<8.5E-2+8.25E-3*GR>*WS >*100. 

GO  TO  100 

TOF*(  1  .  1 405-4 .659£-3"PA+l . 28E-5*PA**2  >- 
<2.0146E-3-2.46E-5«PA+3.5514E-7*PA**2)*T 
GR«(-3.0029E+1-9.6225E-2*GW+1 .25428E-1*GW"*2>- 
(-7.3845E  +  1  +  1 . 20433*GW+ 1 .7857E-1 *GW**2 )*TOF  + 
<-3.57857E+l+7.857E-l *GW+7 . 1 4286E-2*GW*"2 )*TOF**2 
FGR*(  <3. 17413E-1+9.762E-1*GR+2.657E-4*GR**2 >- 

< 1 . 1114E-1+7.91177E-3*GR+4.40169E-5*GR**2>*WS>*100. 

GO  TO  100 

TOF-19. 166-5.48SE-2*PA)-<3.412E-2-l .8E-4*PA>*T 
GR«<  3.02E+2-3.519E+l*GW+l  .841*GW**2  >- 

( 1 .306E+2-1 .277E+l*GW+5.4E-l*GW**2>*TOF+ 

(2.0687E+1-1 -715*GW+6.07E-2*GW**2)*TOF**2- 
(  1 .1578-8. 4228E-2«GW+2.46E-3*GW**2)*TOF*«3 
FGR-(GR-<  9.55E-2  +  7. 15E-3*GR>*WS >*100. 

GO  TO  100 

TOF-< 2.336+1 .582E-2*PA+1 . 1 72E-4*PA**2 >+ 

<5.604E-3+9.97746E-5*PA-5.8U7147E-7*PA**2)*T+ 

(9. 19269E-5-1 . 34357E-8*PA+ 1 . 6 1 4 1 1 E-8*PA**2 >*T**2 
GR»<  7. 7366-2. 52997E- 1 *GW+2 . 385E-3*GW**2 >  + 

(-2.1071+4. 2586E-2"GW+ 1 2 . 748E-4*GW**2 >«TOF 
FGR«(GR-< 1 .0755E-1+1 . 4588E-2*GR-7 . 94 1 56E-5*GR**2 >*WS >*100. 

GO  TO  100 
CONTINUE 

TOF-< 1.011905E-8  *  PA**2  ♦  2.512143E-6  *  PA  +  1.08567E-4)  *  T**2  + 

(7.32310E-8  *  PA**2  -  2.86385E-4  *  PA  -  1.324775E-3)  *  T  + 

(5.05617E-5  *  PA**2  +  1.65066E-2  *  PA  +  1.376288) 

GR-  < ( 1 . 29736E-2  *GW**2  -  2.76779E-1  *  GW  +  5.97192E-1)  *  TOF  + 

( 6 . 58752E-3  *  GW*"2  -  8.64587E-1  *  GW  +  2.35300E+1)) 

FGR-<  GR  -  ( 4 . 38385E-3  *  GR  +  .1178382)  *  WS  )  *  100. 

GO  TO  100 

TOF»<  7.6859-1  .  15E-l*PA  +  4. 4 13E-4*PA**2  >- 

<  2.925E-2-8. 1 1 28 E - 4 *P A  +  6 . 999E -6*PA**2  >*T- 

( 2.2289E-4+5.054E-6"PA-7.57E-8*PA**2)*T"*2 
GR=( 2.546E+1-2. 3388*GW+ 1 . 07 1 7E- 1 *GW**2 >- 

<  7.9095-6 . 7434E - 1 *GW+2 . 1045E-2"GW**2  )*TOF  + 

! 6 .099E-1-5 .0858E-2"GV/+ 1  . 434E-3*GW**2  >*TOF**2 
FGR»<  GR-< 1 . 16E- 1+7.2 7E-3*GR- 3.64 E-6*GR**2  >*WS  >*100. 

GO  TO  100 
CONTINUE 

TOF«<<  6 . 774507646E-8  *  PA**2  -  6 . 93985 1 559E-6  *  PA 
-  2 . 489344503E -5  )  *  T**2  +  (  -  1  . 441 875268E-5  *  PA**2 

♦  1 .090539850E-3  *  PA  -  2 . 448 1 3 1923E-2  )  *  T  + 


.  (5.370048859E-4  *  PA**2  -  7.074215531E-2  *  PA  +  1 . 14542412E+1  >> 
GR-< < -1 .21595262E-2  »  GW**2  +  3 . 964 1 80589E- 1  *  GW  -  5.192737959  ) 

.  *  TOF  +  (  1 .411936573E-1  *  GW**2  -  4.191820782  *  GW+53. 79972331 > > 
FGR*  (  GR  -  (  1  .08636364E-2  *  GR  +  1.0500E.-1  )  *  WS  )  *  100. 

GO  TO  100 

18  TOF-<2. 118+1 .058E-2*PA+1 .01 4E-4*PA**2 >+ 

.  (2. 102E-3+1 .84£-4*PA-l . 177E-6*PA**2 >*T+ 

.  (  1 . 001E-4-7.046E-7*PA+l . 355E-8*PA**2  >*T**2 

GR-< 1 .0E-5  >  +  < -1 . 9687+4 . 209E- 1 *GW+3 . 9445E-2*GW**2 >*TOF 
FGR-(GR-(8.363E-2+l . 488E-2*GR-9 . 78E-5*GR**2 >*WS >* 100. 

GO  TO  100 

19  TOF«<4. 65478+6. 94444E-3*T>+< 3.257E-1+2.7778E-4*T)*< PA/10. ) 

GR-<  . 1457+3. 5625E-2*GW-6.763E-5*GW**2>+ 

.  <5. 1428-3. 175E-2*GW+7.0089E-5*GW**2>*TOF 

FGR*( GR-( . 1+.0082*GR>*WS  >*100. 

GO  TO  100 

20  TOF “( 1 .21 92956+2. 209 1577E-3*PA+3.380102E-4*PA**2)+ 

.  ( 1 .4628966E-2+2.6313968E-4*PA-1.3818053E-7*PA**2)*T- 

.  (2.4891E-4-6.875E-6*PA+7.8125E-8*PA**2)*T**2+ 

.  <  2 . 203 14£-6-6.49E-8*PA+7. 47E -10*PA**2  >*T**3 

GR-< (2. 3806396-5. 9265772E-2*GW+6.67969E-4*GW**2>+ 

.  (-1 . 1 99331 36+5.04 1098E-2*GW-2. 125 1 7E-4*GW**2 >*TOF >*10. 

FGR-( 1 . 0+9. 7757 143E+l*GR+6. 42857 1 4E-2*GR**2 >- 
.  <4. 8785706+5. 42755 15E-l*GR+4 . 438775E-3*GR**2 >*VS 

GO  TO  100 

21  TOF*( -4 . 799 107E- l  +  3 .3165178E-2*PA  +2 . 7902E-4*PA**2 >  + 

.  (2.129E-2  +  2 . 2538E-4  *  PA  -  2.9186E-6  «  PA  **  2>  *  T 
GR  -  <1.16103  +  5.318E-2  *  GW  +  9.0525E-4  *  GW  **2  >  + 

.  <  3 . 369SE 1  -  6.94278E-1  *  GW  +  3.8559E-3  *  GW  **  2  >  *  TOF  - 
.  (-9.041  +  2.307E-1  *  GW  -  1.264E-3  *  GW  **  2  >  «  TOF  **  2  + 

.  (-1.0708  +  2.477E-2  *  GW  -  1.108E-4  *  GW  **  2  >*TOF  **  3 
FGR«(GR-(2.4131E-l+2. 11SE-4*GR  +  1 . 935E-4*GR*«2 >*WS >*100. 

GO  TO  100 

22  CONTINUE 

23  TOF-(3.9116E-2+6.3976E-2*PA>+( 1.6557E-2-7.6643E-6*PA)*T 
GR«(5. 625-9. 5E-2*GW+ 1 . 31 25E-3*GW**2  >♦ 

.  (8.6496E-1-1. 2768E -2"GW+ 1 .077E-4*GW**2  >*TOF  + 

.  ( 4 .0067E-1 -5 . 982E-3"GW+3 . 627E-5*GW**2  >*TOF**2 
FGR-(GR-(  1 .508E-1+8.625E-3*GR)*WS  >*100. 

GO  TO  100 

24  TOF-(5.4067E+1-1 . 3375E- 1 *PA-2 . 2755E-4*PA**2+3 . 6508E-6*PA**3 >- 

.  (7.395E-2-1 .71E-4*PA-5.91E-6*PA"*2+4.22E-8*PA**3>*T 

GR»(  8.6549E  +  3-7.75196E  +  1 *GW+2 .07846E-1 "GW" *2  > - 
.  ( 5.6302E+2-4.9948"GW+l . 305 1 9E -2*GW**2 >*TOF+ 

.  < 1 .22509E+1-1 . 07 805 E - 1 *GW+2 . 759985E-4*GW**2 )*TOF**2- 

.  ( 8.8948E-2-7.77463E-4*GW+l . 956483E-6*GW**2 )*TOF**3 

FGR-(GR-(  1 ,4123219E-l  +  8.5293578E-3*GR+5. 709895E-6*GR**2  >*WS  >*100 . 
GO  TO  100 

25  TOF-( 7. 90371+6. 68965E-2*PA+2. 1 2622E-4*PA**2 >+ 

.  (3.00808E-2+2.671 18E-5*PA+9.85E-6*PA**2)*T+ 

.  ( 1 .23149E-4+1 .3589E-6*PA-3. 164 1 E-8*PA**2 )*T**2 

GR»( 2. 1742857+2. 0428 SE-1*GW-1 .071 429E-2*GW**2>+ 

.  (  1 . 14  943-1 .2707E-1 *GW+ 5. 1 785E-3"GW**2  >*TOF 

r  G R  =  ( G R - < -2. 732 7E -2  +  1 . 904 E -2 *GR  > *WS  + 

.  ( -6.308077E-4+1 . 9 ' 6 5 4 E -4 *GR > *WS**2 >*100. 

GO  TO  100 

26  CONTINUE 

27  CONTINUE 

28  CONTINUE 

29  TOF=(7.83935E-l+5.38189E-2*PA>+ 

.  < 1 . 20408 E -2 +  9 .888357E-5*PA-2. 32448E-6*PA**2  >*T- 

.  ( 9. 72E-6  +  1 .8278E-6*PA-2. 405E-8*PA**2  >*T**2 

GR-(  3. 18978E  +  1-1 . 705-GW+3 . 602E -2*GW*«2  >  + 

.  ( -8.8235+5. 1387E-l"GW-5.679E-3*GW**2)*TOF+ 


.  (-1 .7644 1+4. 82709E-2*GW)*TOF**Z 

FGR«(GR-(8.6457E-2+l . 141 4E-2*GR >*WS >*100. 

GO  TO  100 

30  TOF*<  -  2 . 8905 1 4E- 1 +5 . 8370956 E - 2"PA )♦ 

.  (4. l61561E-2-3.518445E-5*PA)"T+<-6.0515E-5+3.53095E-6*PA)*T**2 

GR«( -2. 684337E+ 1+3. 224954*GW)+( -2.058151 9+3. 70Z4356E-1*GW)*TOF+ 

.  ( -8.861357E-1+8. 30931 88E-2*GW )*TOF**2 
FGR-<GR-< 1 .3583333E-1+9.5833E-3*GR)*WS)*100. 

GO  TO  100 

31  TOF-(7.46275E-l+l .  789924E-2*PA+ 1 . 667729E-4*PA**2 >+ 

.  <  6. 10178 75E -3+3. 4816947E-4*PA-1 . 6406229E-6*PA"*2 )*T+ 

.  <  1 .718525E-4-2.621825E-6  +  PA+4. 184375E-8*PA**2 )*T«*2 

GR-< -7.2378129E+1+3.8485684E+1 "GW-6 . 565*GW**2+3 . 9 1 6E-1 *GW**3 )♦ 

.  (-5.477E  +  1  +  2.92E  +  1 "GW- 4 . 975*GW**2+2 . 906E- 1 *GW**3  )*TOF 

FGR«< ( -1 .607758+1 .  2221 76*GR-5 . 64375E-3*GR**2 )- 
.  ( .482382E-1+2.2260152E-2*GR-4.7462116E-4*GR**2 )*W$ )*100 . 

GO  TO  100 

32  TOF«< 1 .996+1. 69E-2*PA+2.56E-5*PA**2>+ 

.  (8.64E-3-7.5E-5*PA+1.61E-6"PA*"2)*T 

GR“(6.26£+1-1 .299E+1 *GW+6 . 886E - 1 *GW**2 )+ 

.  (-1 .0004E+2  +  2 .03 1 7E  + 1 *GW-9 . 67E- 1 "GW* *2 )*TOF  + 

.  < 1 .30368E+1-2.689"GW+1 . 403E- 1 «GW**2 >*TOF**2 

FGR»<  (-3.3E-1  +  1  .047*GR-8.57E-4*GR**2>- 
.  (4.22E-2+9.47E-3-GR+1 . 9898E-5»GR )*WS )* 100. 

GO  TO  100 

33  TOF-<  6.6742857E-1+4.4226786E-2«PA>  + 

.  ( 1 .027l43E-2+3.051339E-4*PA)"T+< 1 . 74994E-4+S .023E-7*PA >*T**2 

GR-< -1 .37666666E+1+1 . 679 1 66666*GW >+< -3 . 55+4 . 7 1875E- 1*GW >*TOF 
FGR«(GR-< 1 .5166666666E-1+1 .0083333333E-2-GR >*WS >*100. 

GO  TO  100 

34  CONTINUE 

35  CONTINUE 

36  TOF“(  -  9 . 208333 7 E - 1 +5.9113889E-2*PA)+(2.29 1 666E-2-2. 7778E-5*PA )*T 
GR-( 3.711 176E+ 1-1 . 640279E+ 1 *GW+2 . 22809*GW**2 )+ 

.  < -2.09922E  +  1+  8.6991 796*GW-8 . 4586E-1 *GW""2  >*TOF  + 

.  ( 2. 248949-9. 093486E-1 *GW+ I .061 975E-1*GW*«2 >*TOF**2 

FGR«<GR-<  4.3358E-2  +  2. 196E-2*GR)*WS+ 

.  ( 8 . 7 9 209 E -4 +8 .212 1 9E-5*GR  )*WS**2  >*100. 

GO  TO  100 

37  TOF ■( -6.46E-l+6.7857E-2*PA+2. 723E-4*PA**2  >  + 

.  <  3.69E-2-2.24E-3*PA+3.49E-5*PA**Z)*T+ 

.  ( 1 ,07E-4+3.85E-5*PA-4. 688E-7*PA**2 >*T**2 

GR«( 5.38-1 . 105*GW+1 . 14E-1*GW**2  )  + 

.  (8.02E-1-2.57E-1 "GW+2 . 4E-2*GW""2 )*TOF 

FGR-(GR-(  1 .6E-2+2.44E-2*GR-2. 128E-4*GR**2)*WS>*100. 

GO  TO  100 

47  TOF  •(-8.992457018E-8  *  PA**2  +  4 . 1 20693445E-6  *  PA  + 

6 . 88572952E-5  )  *  T**2  +  (  1 . 3 176451 71 E-5  *  PA**2  - 
4 . 958847636E-4  *  PA  -  2 . 782090857E-4  )  *  T  +  { -2.947026181E-4  * 
PA**2  +  2. 102433582E-2  "PA  +  1.005183175) 

GR  -  <(  2 . 359239E-2  *  GW**2  +  3.278735E-2  *  GW  -  3.84774)  *  TOF 
.  +  (  1 . 24 1 648E-2  *  GW**2  -8.065467E-1  *  GW  +  1 . 1 26351 E  + 1  ) ) 

FGR  «  (GR  -  <  7 . 56201E-2  +  7.70610E-3)  *  WS )  *100. 

GO  TO  100 
100  RROIST*FGR 
RETURN 
END 
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3U3R0UTINE  TGLNIV(IA) 


C 

C*-***  DEFINE  TOUCH-AND-GO  LINE-SOURCE  GEOMETRY 
FOR  AIRCRAFT  IA 

c 

INTEGER  AC NAME , EGNAME , E NGNO 
SEAL  LND3P0 
COMMON  /ACEDB 1 / 

ACEMFC( 8,10,6 ), AC NAME <  50 > , EGNAME ( 50 > , ENGNO< 50,2), 
A3CNT1 ( 50 ) , ASCNT2! 50 ) ,TX I SPD( 50 ) , LNDSPD<  50 ) , 

APSPD 1 ( 50) , COHT1 ( 50  > , APSPD2<  50 ) ,TOSPD( 50), 

COSPD1 ( 50) ,COSPD2<  50) , SRTUPTI 50 > , DSCNT1 ( 50 ) , 

EGCHKTI 50) , SHTDNT ( 50 ) , DSCNT2< 50) .APPHT, 

APPHT21 50) , CLMBHT , TOWT<  50) 

COMMON  /ACEC32/ 

NACTYP , NRNWYS . NPKAR , IEGFLG , 

IAC”YF  <  3 ) ,ANNARR<  8 ) , ANNDEP ( 8 ) ,ANNTGO< 8 ) , 

ARRr CN( 24,6  >,DEPFCN<  24.6 ) ,TGO<  3 , 4 ) , 0 1 SRNW( 6 ) , 

RNWY  ■:  7 . 6  ) ,  I USWO  (  20 , 6  ) ,  RNWYAR<  8,6),  RNWYDP  <  8,6), 

ACFUEL ( 8  )  ,ARFLVT(  8‘) ,  DP  FLVTI  8  )  ,ACSP  I  L<  8  > . 

ARSVEM( 6,8,5), DPSVEM( 6,8,5), NIBTT{ S),NIBSEG(8,6), 
IIBS£G( 16,8,6), ID IBTW(8,S ) .TTARFR: 8,8,6 ),NOBTT< 6), 
NQ£SEG( 3,6 ) , lOBSEGf 1 6 . 8 , 6 ) , I DOBTW( 8.6), TTDPFR( 8,8,6) 
NPASO<6),IDPRKA(6),PAREA(6,3,3),IDIBPA(8,6), 

I D05PA( 3,6),NLSEGS,ACLNSG< 12,25) 

C 

C**"**  ZERO  DATA 
C 

DO  11  0-1.3 
DO  K- 1 . a 
TGO: J,K)»0.0 
11  CONTINUE 
C 

C***«  RETRIEVE  AIRCRAFT  10 

:dac-iactyf< ia) 

IF <  I DAC. LS.0. OR. 51. IE. IDAC)  RETURN 

C*«*"  CHECK  AIRCRAFT  COUNT 
C 

if<anntgo< :a).le.0.0>  return 

c 

c*«».  COM'UTE  TINE/DISTANCE  OaTA 

c 

C**  GROUND -PROJECTED  DISTANCES  FOR  EACH  PHASE 
C 

TGO  1 ,2  )«-APPHT2< IDAC )/TAN( DSCNT21 IDAC ) ) 

TGO!  1  ,  1  >TGO<  1  .2  )-<APPHT-APPHT2(  I DAC  )  >/TAN<  DSCNT1  (  IDAC)  ) 

"GO; 1 ,3 ) *0 . 3048  +  COHT 1 (  I DAC ) /TAN< ASCNT1 { IDAC) ) 

TGO;  1 ,4  >»Tgo( 1 ,3 )  +  <CLMBHT-COHTl<  IDAC  )  > /TAN( ASCNT2 ( IDAC  >  ) 

C 

C**  D I 3“ANCE  $  rOR  EACH  PHASE 

TGO  2,  1  )  =  '  A=PHT-APPHT2(  IDAC  )  )/SIN<  DSCNTK  I  DAC  )  ) 

“GO  2,2  !=.-.?  3  HT2!  IDAC  )/SIN<  DSCNT2(  I  DAC  )  ) 

“GO  2,3)  =COH“  1  (  IDAC  ) /SIN!  ASCI1TK  IDAC  >  > 

TOO! 2,4;-\CLMBHT-CCHTl( IDAC ) > /S I N ( ASCNT2 ( IDAC  >  > 

C 

C**  ■’’IMES  FOR  EACH  PHASE 

TGO' 3, 1 )«2 .0*TGO( 2 , 1 )/(APSPDl ( IDAC  >+APSPD2< IDAC ) ) 

TGO  3,Z)-2.0*TGO<2,Z)/<APSPD2<  I DAC >+LNDSPD(  IDAC)) 

TGOv  3 , 3  )»2 . 0*TGO(  2 , 3  >  /  (  TOSPD  (  IDAO+COSPDll  IDAC))  . 
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SUBROUTINE  ARRDEP 

*****  COMPUTE  ANNUAL  EMISSIONS  DUE  TO 
*****  AIRCRAFT  ARRIVALS  AND  DEPARTURES 

INTEGER  ACNAME .EGNAME , ENGNO 
REAL  LNDSPD 
COMMON  /ACEDB1/ 

1  ACEMFCI 8 . 10, 6  > .ACNAME <  5* ) . EGNAME < 5 0 > , ENGNO( 50,2), 

2  ASCNT1  (  50  )  ,ASCNT2(  50>,TXISPD<  50  )  ,LNDSPD<  50), 

3  APSPD 1 ( 50  > .C0HT1 ( 50 ) ,APSPD2( 50 ) , TOSPD( 50) , 

4  COSPOl ( 50 ) , COSPD2( 50 > , SRTUPTI 50 > , DSCNT1 < 50 > , 

5  EGCHKTI 50  > , SHTDNTI 50) , DSCNT2I 50  > .APPHT, 

6  APPHT2I 50) ,CLMBHT,TOWT<  50) 

COMMON  /ACEDB2/ 

1  NACTYP , NRNWVS , NPKAR, IEGFLG , 

2  IACTYP I 8 ) ,ANNARR( 8  > , ANNDEP ( 8 ) ,ANNTGO( 8 ) . 

3  ARRFCN(24,6),DEPFCN<24,6>, TGO( 3.4) , DISRNWI 6 ) , 

4  RNWY( 7,6), IUSWO( 20,6), RNWYARI 8.6), RNWYDPI 8.6). 

5  ACFUEL ( 8  )  .ARFLVT  <8>,DPFLVT(8),ACSPIL(8), 

6  ARSVEMI 6,8,5), DPSVEMI  6,8,5) , NI BTT( 6  ) , NI BSEG( 8,6), 

7  IIBSEGI 16,8,6), IDIBTWI 8,6  >,TTARFR( 8,8,6  >,NOBTTC6>, 

8  NOBSEGI 8 , 6 ) , IOBSEG< 16,8,6), IDOBTWI 8,6) , TTDPFRI 8 , 8 , 6 ) 

9  NPASQ( 6 ) , I DPRKAI 6  ) , “AREA! 6 , 3 , 3 ) , I D I  BP A( 8,6), 

+  IDOBPA( S,6 ) ,NLS£GS,ACLNSG( 12,25) 

COMMON  /ANNMET/ 

.  1  TBAR , ADD , P , PA, 

2  WSBAR , DTBAR , AMDBAR 

COMMON  /DEFALT/ 

1  NPLTS , I TAPE , ACLNDY .ACLNDZ , 

2  TCVSDF .TCHBDF .TCHODF .TCDYDF , 

3  TCDZDF , RUDSDF , RUTSDF , RUVSDF , 

4  RUHBOF  ,  RUHODF  ,  RUDYDF  ,  R'JDZDF  , 

5  TFDZDF.TFQOF.TFHBDF.TFHODF, 

6  EGCKDY.EGCKDZ.ACMLPL.ARDSDZ, 

7  ATDSDY , ATDSDZ , TCDSDF , TCTSDF , 

8  FPDFLT.TDDFLT.RFDFLT.SFDFLT, 

9  Pc,,eI.T,TFDFLT,TFDYDF,MINUS(6) 

COMMON  /7C,i/ 

1  TOTEM<  20,6) ,TOTEVP< 10), EMI  SSI  8, 15, 6) 

INTEGER  THNAME 
COMMON  /EGEDB1/ 

1  MONAM1I 10) .THNAMEI 4 ) ,M0NAM2( 10) , IDACEGI 50) , 

2  IACABFI 50),EGFF<  4,50), 1EGABFI 50), IDRRI 50) 

DIMENSION  TERI 6 , 1 1 ) 

•***  LOOP  OVER  AIRCRAFT  TYPES 

DO  390  IA-1, NACTYP 
IDAC-IACTYPI I A ) 

***  RETRIEVE  ENGINE  DATA 

ENGl-ENGNOI IDAC, 1 ) 

ENG2-ENGNOI IDAC, 2) 

***  COMPUTE  TOTAL  AIRCRAFT  EMISSION  RATES 
DO  10  IP-1, NPLTS 
*  MODE  1 


ENG-ENG1 


ooo  ooo  non  ooo  non  ooo  non  non  non  non  non  non  non 


DO  11J0T  IP-1, NPLTS 

EMISS< IA, 7 , IP )«EMISS( IA, 7 , IP  >+TER( IP,7)*TIM 
liar  CONTINUE 

MODE  8 

0IS-APPHT2< IDAC )/SIN( DSCNT2< IOAC) > 

SPD-<  LNDSPD< IDAO+APSPD21 IDAC) )/2.0 

TIM-ARR*DIS/SPD 

DO  120  IP-1, NPLTS 

EMISSt IA.8.IP  )-EMISS( IA, 8 , IP )+TER< IP,8)*TIM 
120  CONTINUE 

MODE  9 

D I S-D I SRNW< IR )-0. 3048 

SPD-<  TXISPti « IDAC)+LNDSPDt  I  DAO  >/2.0 

TIM-ARR*DIS/SPD 

DO  130  IP-1, NPLTS 

EMISSt IA,9,IP)-EMISS(IA,9,IP  )+TERt IP,9)*TIM 
130  CONTINUE 

MODES  10  AND  11 

NT-NIBTT(N) 

DO  160  IT-1, NT 
FR-TTARFR( IT.IA.IR) 

IF<  FR.LE .0.0)  GO  TO  160 
NS-NIBSEG< IT, IR) 

DO  M0  N-l.NS 
IS-IIBSEG(N.IT.IR) 

DIS-ACLNSG( 11,1?) 

SPO-ACLNSGt  9 , IS )*TX ISPDt IDAC) 

TIM-ARR*FR"0 IS/SPD 
DO  140  IP-1, NPLTS 

EMISSt IA, 10, IP )-EMISSt IA, 10, IP  >*TERt IP,10)*TIM 
140  CONTINUE 

TIM-ARR*FR*SHTONTt IDAC  >/60. 

DO  150  IP-1, NPLTS 

EMISSt IA, 1 1 , IP )-EMISSt IA , 1 l , I P )+TERl IP, 11 >*TIH 
150  CONTINUE 
160  CONTINUE 

*  PROCESS  DEPARTURES 

200  CONTINUE 

DEP-RNVYDPt IA, IR) 

IFtOEP.LE.0.0)  GO  TO  290 

MODE  1 

TIM-DEP*SRTUPT( IDAC  >/60. 

DO  210  IP-1, NPLTS 

EMISSt IA, 1 , IP )-EMISS< IA, 1 , IP )+TERt IP, l >*TIM 
210  CONTINUE 

MODE  2 

NT-NOBTTtIR) 

DO  230  IT-1 , NT 
FR-TTDPFR( IT.IA.IR) 

IF(FR.LE.0.0>  GO  TO  230 
NS-NOBSEG( IT, IR) 

OO  220  N-l.NS 


ooo  o  o  o  non  ooo  ooo  ooo 


IS-IOBSEG<N,IT,IR) 

DIS-ACLNSG<  H,IS) 

SPD-ACLNSG( 9 , 1 S  >*TXI SPD< I DAC  > 

TIM-DEP*FR*DIS/SPD 
DO  220  IP-1, NPLTS 

EMI SS(  IA.2.IP l-EMISSI IA,2, IP )+TER( IP,2>»TIM 
220  CONTINUE 
230  CONTINUE 

*  MODE  3 

TIM-DEP*EGCHKT< IDAC >/60. 

DO  240  IP-1, NPLTS 

EMISS< IA.3.IP )-EMISS( IA, 3 , IP >+TER< IP,3)*TIM 
240  CONTINUE 

*  MODE  4 

DIS-RRDISTI IDRR( IDAC > .PA.TBAR.TOWTt IDAC ) , 1 . 9426*VSBAR >*3 .048E-4 
NS-NOBSEG( 1 , IR) 

I S»IOBSEG< NS , 1 , IR  > 

SPD-( ACLNSGt 10, IS  >*TXISPD< IDAC )+TOSPD( IDAC ) >/2.0 

TIM-DEP*DIS/SPD 

DO  250  IP-1, NPLTS 

EMI SS( IA,4, IP )»EMISS( IA,4, IP  >+TER< IP,4)*TIM 
250  CONTINUE 

*  MODE  5 

D I S-COHT H I D AC  > / S I N( ASCNT1 U DAC  >  > 

SPD-( TOSPD< IOAC )+COSPDl (IDAC > )/2 .0 

TIM-DEP*DIS/SPD 

DO  260  IP-1, NPLTS 

EMI SS( IA, 5 , IP )-EMISS( IA, 5 , 1 P  >+TER< IP,5)*TIM 
260  CONTINUE 

*  MODE  6 

DIS-( CLMBHT-COHT1 < IDAC )  >/SIN(ASCNT2( IDAC) ) 

SPD-<  COSPO 1  (  IDAC  )+C0SPD2(  IDAC>>/2.0 

TIM-DEP*OIS/SPD 

DO  270  IP-1 .NPLTS 

EMISS< IA,6, IP >-EMISS( IA,6, IP >+TER< IP,6)*TIM 
270  CONTINUE 

***  END  RUNWAY  LOOP 

290  CONTINUE 

****  END  AIRCRAFT  LOOP 

390  CONTINUE 
RETURN 
END 


ro  *—  ui  4*  U)  N  ^  *—  f  VOtSNiJtUI^^IV)*-*  U4  ui  CO  N 


3USR.0UTINE  GROUND 


C'****"  COMPUTE  ANNUAL  EMISSIONS  DUE  TO 
C**"”*  GROUND  SERVICE  OPERATIONS 

C 

INTEGER  ACNAME , EGNAME . ENGNO 
SEAL  LND5PD 
COMMON  /ACEDS 1 / 

1  AC£i-lrC<8,10,6> , AC NAME <  50 ) , EGNAME! 50  > , ENGNO! 50, 2 ) , 

ASCNTi  l  50 ) , ASCNT2!  50),TXISPD<  50  ) ,  LNDSPD(  50 ) , 

AP  SPO 1 ! 50 ) , COHTi ! 50 ) , APSPD2! 50 ) , TGSPD! 50 ) , 

COSPD1!  50)  ,COSPD2!50),SRTUPT<  50)  ,  DSCNT1  (  50 ) , 

EGCHKT (  50) ,  SHTDNT (  5 0  > , D5CNT2!  50  >  ,APRHT, 

APPHT2! 50 ) , CLMBHT , TOWT  < 50) 

COMMON  /ACED32/ 

NAC~YP  ,  NP.NWYS  ,  NPKAR  ,  I EGFLG  , 

IACTYP ( 3 ) .ANNARR! 8 ) .ANNDEP  <  8  > ,  ANNTGO! 8 ) , 

ARRFCN! 24,6),DEFFCN(24,6),TGO!3,4),DI SRNW( 6  > , 

RMUY <  7 . 6 ) . I USWD  <  20 , 6 ) , RNWYARi 8,6), RNWYDP  (  8,6), 

ACFUEL! 8 ) ,ARFLVT! 8 ) ,DPFLVT( 8 ) .ACSPIL!  8  > , 

AR3VEM! 6 , 8 , 5  > , DPSVEM! 6 , 8 , 5 ) , NIBTT! 6 ) , N I BSEG!  8 , 6 ) , 

1 1 3SEG( 16,8,6), IDI BTW<  3,6) , TTARFR! 8,8,6), NOBTT!  6 ) , 
N023EG( 8,6 ), IOBSEG! 16,8,6), IDOBTW! 8,6), TTDPFR( 8,8,6), 
NPASO(6),IDPRKA(6), °AREA( 6,3,3),IDIBPA(8.6), 
IDOBPA(3,6),NLSEGS , ACL  NSG ( 12,25 ) 

COMMON  /ACE DBS/ 

NWCASE , UES 1 ( 9 ) , IRNWY (2,6) 

REAL  LUEMFC 
COMMON  /EM'DBl/ 

EGEMFC! 6 , 4 , 50 ) , PL NAME ( 6 ) ,PPEMFC( 22,6 ) ,EMFCIN<  5,6 ) , 
TFEMFC(6 ),LUEMFC(9,6  > , ALPHA! 7 ) ,BETA( 7 ) , 

FL0EN3! 7 ) , FLNAME ! 7  ) , AFEMFC! 2 , 6 , 6 ) , ATEMFC!  2,6,6), 
CSEMFC(6,6  ),AFCS£M(6,6  ) , AFSOAK.ATSOAK, 

AF  SRTH , ATBRTH , F LTFCTt  7 ) , F I XFCT(  7 ) , 

WRKFC- ( 7 ) 

COMMON  /ANNMET/ 

TEAR, ADD, P , PA. 

US  EAR . DTBAR , AMDBAR 
COMMON  /DEFALT/ 

NPLTS. ITAPE.ACLNDY.ACLNDZ, 

TCVSDF .TCHBDF ,TCHODF ,TCDYDF, 

TC'JZDF  ,  RUDSDF  ,  RUTSOF  ,  RUVSDF  , 

RUH3DF  .  RUHCDF  ,  RUDYDF  ,  P.UDZDF  , 

TFDZDF ,TFQDF ,TFHBDF .TFHODF , 

E-2CKDY , EGCKDZ, ACMLPL , ARDSDZ, 

ATDSCY .ATDSDZ.TCDSDF .TCTSDF , 
FPDFLT,TDDFLT,RFDFLT,SFDFLT, 

PFDFLT.TFDFLT.TFDYDF, MINUS!  6 ) 

COMMON  /TO“2 / 

1  TOTEM! 20,6 ) ,TOTEVP! 10 ) , EM  I SS! 8 , 1 5 . 5 ) 

r 

C****  LOO’  OVER  AIRCRAFT 

c 

DO  50  IA= 1 . UACTYP 
I A  U  =  0  E  S  1  ■  IA  ) 

C 

C**  ARRIVAL  AND  DEPARTURE  SERVICE  (MODE  12) 


DO  20  I P  =  1  .‘IrLTS 
A  v  2  >;=0.  0 
DV£,  '1=0.0 
DO  IJ  1U=1.S 

A V E M ■  A V E M •* A r ; S V E M <  IP.IA.IU) 


100 


A 

t 


% 


OVEM«DVEM-OPSVEM( IP,IA,IU> 

IS  CONTINUE 

EM  I SS< I A,  12, IP  >«EMISS< IA. 12,  IP  )  + 

1  AVEMVANNARR( IA >+DVEM*ANNDEP( IA) 

28  CONTINUE 

C»*  FUEL  VEN'rI,(G  (MODE  13) 

C 

EMI SS( IA, 13,2) -EMI SS< IA , 1 3 , 2 >+FLDENS< IAU>* 

1  (ARFLVTt IA  )*ANNARR( IA)+DPFLVT< IA )*ANNDEP( IA)) 

C 

C*"  FILL  AND  SPILL  (MODE  14) 

C 

TMP»5 . *( T8AR-32 .  )/9.  *273.1 
TVP*EXP(ALPHA( IAU)-8ETA< IAU)/TMP> 

EMISS(  IA,l4.2>-(£f.324»TVP»ACFUEL(  IA  >*)J.  5/ 1808 .  +ACSP  IL  (  IA))* 
1  FLDENSC IAU )*ANNARR( IA ) 

9 8  con_:nue 

RETURN 

r  m 


« 


I 


t 


i 
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SUBROUTINE  7RNFLT 

COMPUTE  ANNUAL  EMISSIONS  DUE  TO  TRAINING  FLIGHTS 


INTEGER  ACNAME , EGNAME ,ENGNO 
REAL  LNDSPD 
COMMON  /ACEDE1/ 

1  ACEMf  C ( 8 , 12, 6  ) ,  ACNAME <  52)  ,  EGNAME <  52  > , ENGNO( 52, 2 ) , 

2  ASCNT1 ( 52 ) , ASCNT2<  52 ) ,TX I SPD( 52 ) , LNDSPD<  52  ) , 

3  APS?D1(52>,C0HT:(S2>,APSPD2(52),T0SPD<52), 

4  COSPDi ( 52) ,COS?D2< 52) ,SRTUPT( 52 ) , DSCNT1 <  52 ) , 

5  EGCHKTC  52 ) , SHTDNTI 52) , DSCNT2I 52) ,APPHT, 

S  A?DH72( 52 ) , CLMEHT, TOWTl 52 ) 

COMMON  /ACED32/ 

1  NAC"VP , NRNWYS , NPKAR , I EGFLG , 

2  IACTV? { 8 ) , ANNARRI 8 ) .ANNOEP ( S  ) , ANNTGO( 8  > , 

3  ARRFCN<24.6),DEPFCN<24,5>,TGO<3,4>,DISRNV<6>, 

4  RNWY*  7,6),  I  USWD<  22,6),RNWYAR(8,6),  RNWYDP  (  8,6), 

5  ACFUEL1 8 ) ,ARFLVT< 8  >,DPFLVT( 8  )  ,ACSPIL( 8  ) , 

6  ARSVEMI 6,8,5) , DPSVEMl 6,6,5) , NIBTT( 5),NIBSEG<8,6), 

7  IIESEGi  16.8,6), IDIBTW<  8.6 ) , TTARFR( 8 , 8 , 6 > , NOBTT( 6 ) , 

8  NOBS EG ( 8,6),IOBSEG( 16,8,5), I DOBTW<  3,6), TTDPFR<  8,8,6), 

9  NPASQ( 6 ) , IDPRKAi 6  > , PAREA( 6,3,3),IDI6PA(S,6), 

+  1  DOBPA(  8,6),Ni.SEGS,ACLNSG(  12,25) 

CCMi-ICN  /DEFALT/ 


1  NPLTS. ITAPE.ACLNDY.ACLNDZ. 

2  TCVSDF.TCHBDF.TCHODF.TCDYDF, 

3  TCDZDF.RUDSDF, RUTSDF , RUVSDF , 

4  RUHBDF  ,  RUHODF  .RUDYDF  .R'JDZDF, 

5  TF3ZDF ,TFQQF .TFH80F .TFHODF  . 

6  EGCKDY , EGCKD2 . ACMLPL .ARDSDZ, 

7  ATDSDV.ATDSDZ.TCOSDF.TCTSDF, 

8  FPDFLT .TDOFLT , RVCFLT , SFDFLT , 

9  PFDFLT,TFDFLT.TFDYDF,MINUS(6) 

COMMON  /■’’OTS/ 

1  T07uM( 22,6 ) ,TOTEVP( 12 ) , EMISSt 8 , 1 5 , 6  ) 


****  LOOP  OVER  AIRCRAFT 


DO  S2  IA» 1 , NACTYP 
I  CAC=*  IAC“YP  IA  > 
ENG  =  ENGNO(  I0AC, 1  ) 
ATG=ANNTGO< IA / 


AP 3  POACH  1 

D  I  3“( APPHT-APPHT21 IDAC ) >/SIN( DSCNT1  (  I DAC)) 
S?L*»(APSPD1«  IDAC  )+APSPD2(  IDAC)  >/2.2 

t;m«atg*dis/spd 

DO  .2  I P  =  1  , ~ ITS 

T;P  =  crNG*AC“i'l-'CCIA  7  T=! 

EHILSI IA, li, IP  >-EMISS( IA, 15.IP >  +  ter*tim 
12  ZZ  I NUE 


A? ? POACH  2 


DIOAFPHT?:  IDAC  ) /SIN<  DSCMT2(  IDAC  >  ) 

APS!  DI'  IDAC  i  +  LNDSPDv  IDAC)  >/2.0 

~im=ltg*D!s/  :ipd 

DC  ZZ  I  P  =  !  .  N?  i.TS 
7ER*ENG*ACEMf CC 1A.S. IP  > 

EMI  .3;  IA.  15  -  IP  >=»EMISS;  IA.  15,  IP  !+"ER*TIM 
22  C  3 N  I NUE 


_ iO  DT1C 
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•  RUNWAY  ROLL 
DIS-0.3048 

S?D-(  1 .3»LN0SPD<  IDAC  >+0 . 7*T0SPD<  IDAC) >/2.0 

TIH-ATG*0IS/SP0 

DO  30  I P - 1  .NPLTS 

T£R=ENGNO< IA,1  )*<0.3*ACEMFC( IA, 9 , I P >+0. 7-ACEMFC1 IA,4,IP>> 
EMI SS< IA. 15. IP >-EMISS< IA, 15, IP )*TER*TIM 
30  CONTINUE 

CLIMBOUT  1 

O’S-COHTH IDAC )/S INI ASCNTH IDAC ) ) 

CPD-(TOSPD< IDAC  )+COSPDlI IDAC ) )/2.0 
TIM=ATG*D I 5/SPD 
DO  40  I P=*l  .NPLTS 
TEP.»ENG*ACEMFC(  IA,5,IP> 

EMI3SC IA, 15. IP )-EMISS< IA, 15 , IP  )+TER*TIM 
40  CONTINUE 

CLIMBOUT  2 


D I S-( CLMBHT-COHTl  ( I OAC ) >/SIN( ASCNT2< IDAC)) 
SPD-( COSPD1 < IDAC )>COSPD2( IDAC) )/2.0 
TIM-ATG-DIS/SPD 
DO  50  IP-1 .NPLTS 
TER=EHG*aCEMFC< IA,6,  IP  > 

EM  I :S(  I A. 15. IP )-EMISS( IA, 15 , IP  >*TER«TIM 
50  CONTINUE 
30  CONTINUE 
RETURN 


SUBROUTINE  ODINFO 


C**»**  print  ENGINE  DEFAULT  INFORMATION 
C 

INTEGER  ACNAME , EGNAME , ENGNO 
REAL  LNDSPD 
COMMON  /ACED3 1 / 

1  ACEMFC(8,10,6) ,  AC  NAME  <  50) .  EGNAME  <  50) , ENGNO(  50, 2 ) , 

2  ASCNT1  I  50 ) . ASCNT2I 50 ) , TX ISPD<  50 > , LNDSPDI 50 ) , 

3  APSPDK  50) ,COHTi( 50 > , APSPD2I 50 > , TOSPDI 50), 

4  C03PD1  (  50  >  ,COSPD2<  50  > ,  SRTUPT(  50  >  .DSCNT1  (  5-0) . 

3  £GCHKT( 50  > , SHTDMT ( 50 ) , DSCNT2I 50  > .APPHT, 

6  APPHT2( 50) ,CLMBHT,TOWT( 50; 

REAL  LUEMFC 
COMMON  /EMFCB 1 / 

1  EGEMFC<  6,4,50),PLNAME(6 > , PPEMFCI 22 , 6 > , EMFC IN( 5 , 6 > , 

2  TFEMFCI 6  > , LUEMFC ( 9 , 6  > , ALPHA( 7 ) ,  BETA(  7  ) , 

3  FLD£NS<  7 ) , FLNAME < 7 ) , AFEMFC< 2 , 6 , 6 > , ATEMFCI 2 , 6 , 6 > , 

4  CSEMFC!  6,6) , AFCSEM( 6,6) , AF SOAK , ATSOAK , 

5  AF 3RTH .ATBRTH , FLTFCTf 7 )  ,FIXFCT(  7 ). 

6  WRKFCT( 7 ) 

COMMON  /DEFALT/ 

1  NPLTS, ITAPE,ACLNDY,ACLNDZ, 

2  TCVSOF .TCHBOF .TCHODF .TCDYDF , 

3  TCDZDF , RUDSDF , RUTSDF , RUVSOF , 

4  RUHBDF.RUHODF.RUDYDF.RUDZDF, 

5  TFDZDF , TFQDF .TFHBDF .TFHODF , 

6  EGCKDY , EGCKDZ .ACMLPL , ARDSDZ, 

7  ATDSDY , ATDSDZ , TCDSDF.TCTSDF, 

3  FPDFLT,TDDFLT,RFDFLT,SFDFLT, 

9  PFDFLT,TFDFLT.TFDVDF,MINUS(6> 

INTEGER  THNAME 
COMMON  /EGEDB 1  / 

1  MONAM1 ( 1 0),  THNAME  U),MONAM2< 10 > , I DACEG< 50 ) , 

2  IACABF <  50 ) , EGFF ! 4,50), I EGABF ( 50 ) , I DRR<  50 ) 

INTEGER  GCNAME , GSNAME 

COMMON  /GSEDB  1  / 

1  NS'LS, ISFMAPI5), 

2  GCNAME (15), 

3  GSNAME (  50 ) , I G SCAT! 50 ) , 

4  IGSFLT(50>,GSFF(50),GSEMFCv6,50), 

5  GSRVCT (50.50). 

6  GSF  UEL ( 5 ) , NGSTYP , I GSTYP (  30) , 

7  GSUSGE ( 30  >  t IGSAGN ( 8,30), 

8  GSETIMf  3,30) 

INTEGER  EGTEST.GSTEST 
DATA  EGTEST  /'UNASSGND'/ 

EQUIVALENCE  (EGTEST.GSTEST) 

C 

C***  PRINT  TITlE 
C 

UF.:"E(6,  il  ) 

1 1  FORMAT) 1 H 1  ,  45.  , 

1  "A.  DEFAULT  INFORMATION*) 

C 

C**»  PRINT  ENGINE  EMISSION  FACTORS 
C 

C*  PRINT  HEADER 


yp.I"E<6, 101  ) 

FORMAT!  1 H0 ,  3X  , 

1  V,.  1  ENGINE  POLLUTANT  EMISSION  DATA*) 

Wr I"E<  6 ,  102  > 


i 
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102  FORMAT! 1H0/1H0, 29X,  "THRUST*.  11X.*FUEL  RATE*,17X, 

1  -POLLUTANT  EMISSION  DATA  (POUNDS  PER  1000  LBS  OF  FUEL)*/ 

2  14  , 2X, -NAME-, 11X, -ID*, 8X, "SEATING*, 9X, -1000  LBS/HR- , 

3  2:1,6!  3X.A4  )  ) 

C 

C*  PRIST  ENGINE  DATA 
C 

DO  190  I  DEG* 1 . 50 

I r ( EGNAME ( IDEG ) . EQ . EGTEST >  GO  TO  190 

WRITE! 6, 111  i  EGNAME ( IDEG  ), IDEG, 7HNAME< 1 > , EGFF ( 1 , IDEG  ) , 

1  (EGEMFC( IP, 1. IDEG), IP-1, NPLTS) 

111  FORMAT ( 1H0.AS, Ill ,8X,A8,9X, 1PE9 . 3 , 4X , 6E12 .2 > 

DC  120  IT-2,3 

Ir '•  EGEMFC!  1 ,  IT,  IDEG  )  .LE  .0.  .  AND  .  EGEMFC(  2  ,  IT ,  I  DEG  ) .  LE  .0.  ) 

1  GO  TO  190 

WRITE (6, 112)  THNAME ( IT ) , EGFF( IT . I  DEG ) , ( EGEMFC< IP, IT. I  DEG). 

1  I  P-1 .NPLTS) 

112  FORMAT ( 1H  . 29X ,A8 , 9X , 1  PE 9 . 3 , 4X , SE 1 2 . 2  ) 

120  CONTINUE 

IFi I  EGAS F ( I  DEG  > . EQ . 1 )  WRITE! 6. 112) 

1  THNAME <  4  ) , EGFF! 4 . 1  DEG  ) , ( EGEMFC! IP , 4 , 1  DEG > , IP-1 , NPLTS  ) 

190  CONTINUE 
C 

C»—  FRIST  ENGINE  EMISSION  RATES 
C 

C*  PRINT  HEADER 
C 

WRI-E(6,201 ) 

201  FORMAT! 1H1 ,48X, 

1  -A. 2  ENGINE  POLLUTANT  EMISSION  RATES*) 

WRITE! 6 , 202 )  ( PL NAME ( Ip>, IP-1, NPLTS) 

202  FORMAT ( 1 H0/ 1H0 , 29X , -THRUST* , 1 IX. -FUEL  RATE*,22X, 

1  -POLLUTANT  EMISSION  RATE  (KILOGRAMS  PER  HOUR)*/ 

2  1H  ,2X,*NAME*. 11X, *I0», 8X, -SETTING-, 9X, *1000  LBS/HR*, 

3  2X,6(  8X.A4  )  :■ 

C 

C*  COMPUTE  AND  PRINT  EMISSION  RATES 
C 

DO  290  I  DEG*  2 , 50 

I F ( EG NAME < IDEG). EQ. EGTEST)  GO  TO  290 
00  210  IT-1,4 
DC  210  IP-1 .6 

EGEMFC! IP , IT, IDEG )-EGEMFC( IP , IT, IDEG )*EGFF( IT , I  DEG ) /2 . 20462 
210  CONTI NUE 

WRITE! 6, 111  )  EGNAME! I  DEG  ), I  DEG , THNAME ! 1  ) , EGFF ! 1 , IOEG  ) , 

1  (EGEMFC! IP, 1, IDEG), IP-1. NPLTS) 

DO  220  IT-2,3 

IF!  EGEMFC!  1,1 T, IDEG). LE.0. .AND . EGEMFC! 2 , IT, IDEG ). LE .0.  > 

1  GO  TO  290 

WRITE! 6, 112)  THNAME! IT), EGFF! IT . I  DEG  ) , ( EGEMFC ( IP, IT, I  DEG), 

1  P-1,  NPLTS) 

220  CCrriNUc 

IF (  ! EGABF ( IDEG  >.EQ. 1  )  WRITE! 6 , 1 12 i 
1  THMmME ( 4  > ,EGF F( 4 , IDEG  > , ' EGEMFC!  IP ,4, IDEG  > ,  I P - 1 , NPLTS  ) 

290  cdmtinoe 

C 

C»«*  P.PiT  GSE  emission  factors 
C*  ??. ITT  HEADER 

r 

write  <  6.20: 

301  •  CR  'AT ;  1  H  1  /  1  rl  ,  50X  . 

i  -A. 3  GSE  POLLUTANT  EMISSION  DATA* 1 
WRITE! 6-302 »  • PL NAME! IP > . IP-1 .MFLTS) 
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3*2  FORMAT! IH0/1HS.48X, “FUEL  RATE*,:6X, 

1  -POLLUTANT  EMISSION  DATA  <  KILOGRAMS  PER  GALLON >•/ 

2  1H  . 2X, -NAME-, 11X, -ID-, 8X, -TYPE-, 8X, -FUEL-, 6X. 

2  -GAL /HR* ,1X,6(8X,A4)) 

C 

C*  PRINT  EMISSION  FACTORS 
C 

DO  39*  IDGS-1 ,5* 

I F <  GSNAME < IDG3 ) . EQ.GSTEST )  GO  TO  39* 

IGC-IGSCAT! IDGS  ) 

IGF-ISFMAP! IGSFLT! IDGS  )  ) 

WRITE <6, 31 1  )  GSNAME < I DGS ) , I DGS , GCNAMEf IGC ) , FLNAME! IGF), 
l  G3FF < IDGS) ,(GSEMFC( IP , IDGS) , IP-1 .NPLTS) 

311  FORMAT  < 1H*,A3,I11 , 6X , A8 , 6X ,A4 , 1  PE  1 4 . 3 , oE 1 2 . 2 ) 

39*  CON“INUE 
C 

C***  PRINT  GSE  POLLUTANT  EMISSION  RATES 
C 

C*  PRINT  HEADER 
C 

WF.  I~E(  6,4*1  ) 

4*1  FORMAT! 1H1 , 49X , 

1  -A. 4  GSE  POLLUTANT  EMISSION  RATES*) 

WRITE! 6,4*2 )  ( PL NAME < IP  ) , I P- 1 . NPLTS  ) 

4*2  FORMAT! 1H*/1H*,S*X,*FUEL  RATE  * , 1 6X , 

1  “POLLUTANT  EMISSION  RATES  (KILOGRAMS  PER  HOUR)*/ 

2  1H  ,  4X  ,  '■•NAME*  ,  1 1X,*ID*  ,SX,*TYPE*,8X,*FUEL*,6X, 

2  -GAL/HR*, IX. 6(8X,A4>) 

C 

C*  COMPUTE  AND  PRINT  EMISSION  RATES 
C 

DC  490  IDGS-1 . 5* 

IF(GSNAME( IDGS). EQ.GSTEST)  GO  TO  49* 

IGC* I GSCAT < IDGS  ) 

IGF  - 1 SFMAP ( IGSFLT! IDGS)  > 

DO  41*  IP-1.6 

GSEMFC! IP, IDGSJ-GSE^FC! IP , IDGS )*GSFF( IDGS) 

41*  CONTINUE 

WRITE!  6, 311  )  GSNAME!  IDGS  >  ,  I  DGS  ,  GCMAME  (  IGO.FLNAME!  IGF  ), 
1  GSFF ( IDGS ) , l GSEMFC! I P . I DGS  ) , I P» 1 , NPLTS  ) 

49*  CONTINUE 
RETURN 
END 


•  ' 
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-*  PRINT  ANNUAL  AIRCRAFT  DATA 


WRITE! 6 , 712  ) 

712  FORMAT! 1H0/2H  ,29X, 

1  -8.1  INFORMATION  ON  AIRCRAFT  ACTIVITY,  PARKING  AREAS,  * 

2  -TAXIWAYS ,  AND  RUNWAYS*) 

AIRCRAFT  ACTIVITY 
WRITE! 6,01 >  NACTYP 

61  FORMAT! 1H0/1H0/1H  ,58X, ‘AIRCRAFT  ACTIVITY*/ 

1  1H0.52X, -NUMBER  OF  AIRCRAFT  TYPES  -*.12/ 

2  1H0.Z5X, -AIRCRAFT-, 34X,*!ANNUAL  NUMBER  OF)*/ 

3  1H  , 27X , -NAME- , 1 7X , -ARRIVALS- , 1 5X , -DEPARTURES* , 15X , *T/G  CYCLES*/ 

4  1H  ) 

DO  170  IA-1, NACTYP 
IDAC-IACTYP! IA) 

WRITE(6, i61  ,  (ACNAME! I DAC > , ANNARR! IAJ.ANNDEP! IA), 

1  ANNTGOIIA), IA-1, NACTYP) 

161  FORMAT! 1H  , 25X ,A8 , F22 .0, F24 .0, F25 .0 > 

170  CONTINUE 

PARKING  AREAS 

WRITE! 6 , 93  )  NPKAR 

93  FGRMAT! 1H0/1H0/ 

1  IK  ,S9X, -PARKING  AREAS*/ 

2  1H0.52X, -NUMBER  OF  PARKING  AREAS  -*,I2> 

DO  96  IK-1, NPKAR 

NQ-NPASQ! IK) 

WRITE16.94)  IDPRKA! I K  ) , NQ 

94  FORMAT! 1H0/1H  . 29X , -PARKING  AREA  NUMBER  -*,I4,4X, 

1  -THE  NUMBER  OF  SQUARES  MAKING  UP  THIS  AREA  -*,12/ 

2  1H  ) 

DO  96  IQ-1 .NQ 

WRITE! 6, 95)  IQ,!PAREA< IK,IQ,J),J-1.3) 

95  FORMAT < 1 H  ,22X, -SQUARE  NUMBER  »*,I2.8X,*X  -* , F9 . 3 , 5X , *Y  -*, 

1  F9. 3, ax. -LENGTH  OF  SIDE  ** , F7 . 3 , *  KM* > 

96  CONTINUE 

1  TAX  I WAYS 

WRITE! 6,97)  NLSEGS 

97  FORMAT! 1H0/1H0/ 

1  1H  ,  62X , -TAX  I WAYS*/ 

2  140, 38X, 

3  -NUMBER  OF  CATALOGUED  AIRCRAFT  TAXIWAV  LINE  SEGMENTS  -» , 13) 
WRITE! 6 . 98  ) 

98  FORMAT! 1 40/ 1H  ,7X, -GROUND  LEVEL  COORD  I  NATES- , 2X , -AVE RAGE  * , 

1  *  EMISSION-, 27X, -GROUND  LEVEL  COORDINATES* ,2X , -AVERAGE  EMISSION* 

2  /  1  H  ,-i:;iE».6X,*OF  ONE  END  OF  LINE-.5X,-  HEIGHT  (  METERS  >-,  4X  , 

3  -WIDTH  OF " . AX , -DELTA  2-.4X.-AT  OPPOSITE  END  OF  LINE-.3X, 

4  *  HEIGHT  (METERS  )-.5X, -SEGMENT-/ 

j  14  ,-  NO .  "  .  5 S» ,  *  X  (  1)",9X,*Y(  1  )*.9X,-X!  1  )  V!  1  )*  ,  6X  , -L  INE  (MET)*, 

6  3.:. -(METERS:*,  6X  , -X!  2  >*  ,  9X  ,  »  Y!  2  >- ,  9X  ,  "X!  2  )  Y(2)*,6X, 

7  -LENGTH  \  KM  .'*  /  > 

DC  ? 9 1  IS-l.Ni.5EGS 

WRITE! 5 . 99 .  I S , ( ACLNSG ! 0 , I S  )  . J- I ,3  > .ACLNSG!  1 1 , IS  ) 

99  'ORMAT!  1H  .:S,2F13.3,FU.2.F16.2,F13.2,2F13.3,FU.2.F17.3) 


go  <Ti  tn  co  r  j  *—  m  ^  o^  a*  ^  u  n  »-*  *—*  i  lOO^otui^uN^  cr  tn  0*  u>  is> 


SUSROUTINE  0ACSI1 


PRINT  AIRCRAFT  SOURCE  INPUT  INFORMATION 


INTEGER  ACNAME , EGNAME , ENGNO 
REA*.  LNOSPO 
COMMON  ,'ACEDBl/ 

1  ACEMFC( 8, 1#, 6 ) , AC NAME ( 50) , EGNAME < 50) ,ENGNO( 50,2 ) . 

ASCNT1 <  50 > , ASCNT21 50 ) ,TXISPD( 50) , LNDSPO( 50 > , 

APSPD1 <  50 ) , C0HT1 ( 50 ) , APSPD2I 50) ,TOSPD( 50 ) , 
COSPD1<50),COSPO2( 50) , SRTUPT( 50 > , DSCNT1 < 50 > , 

EGCHKTI 50) , SHTDNT( 50) ,DSCNT2( 50>,APPHT, 

APPHT2( 50 ) , CLMBHT , TOWT( 50/ 

COMMON  /ACEDS2/ 

NACTVP , NRNWYS , NPKAR , I EGFLG , 

IACTYP  <  8 ) , ANNARR1 8 ) .ANNDEP  < 8 ) , ANNTGOI  8 ) , 
ARRFCN<24,6),DEPFCN<24,6>,TGO(3,4>,DISRNW<6>. 

RNWY <  7 . 6  ) ,  I  USWiH  20, 6  > , RNWYAR( 8,6), RNWYDP (8,6), 

ACFUEL ( 8  )  ,ARFLVT< 8  > ,DPFLVT<  8),ACSPIL(8), 

ARSVEMC  6,8,5), DPSVEM( 6,8,5) , NIBTT<  6  > , NI BSEG< 8,6), * 
IIBSBGt 16,8,6  >, ID IBTV<  8,6  >,TTARFRC 8,8,6 >,NOBTT{ 6), 
NOBSEGt  8,6  ), IOBS£G< 16.8,6 ), I DOBTWI 8,6) ,TTDPFR( 8,8,6), 
NPASQv 6 ) ,  I0PRKA1 6 ) , PAREAf  6,3,3) , IDIBPA(  8,6), 

IDOBPA<  8,6 ).NLSEGS.ACLNSG< 12,25 ) 

COMMON  /ACED6C/ 

NWCASE , JES 1 ( 8 ) , I RNWY  (2,6/ 

REAL  LUEMFC 
COMMON  /EMFDB 1 / 

EGEMFC ( 6 , 4 , 50 ) , PL NAME (6),PPEMFC(22.6),EMFCIN(5,6), 
TFtMFC<6),LUEMFC(9,6),ALPHA(7>, BETA! 7 ) , 

FLDENS( 7 ) , FLNAMEI 7  )  , Ar EMFCC 2 , 6 , 6  > ,ATEMFC( 2 , 6 . 6 ) , 
CSEMFCl 6.6)  ,AFCSEM<  6,6) , AF SOAK , ATSOAK , 
AF3RTH,AT8RTH,FLTFCT<  7 ) , F I XFCT( 7  >, 

URYF  'T(  7  ) 

COMMON  /DEFALT/ 

NPLTS, ITAPE.ACLNDY.ACLNDZ, 
TCVSD'.TCHBDF.TCHODF.TCDYDF, 

TCDZDr , RUOSDF , RUTSOF , RUVSDF , 

RUHBDF . RUHODF , RUDYDF . RUDZDF , 

TFDZDC,TFQDF .TFHBDF .TFHODF, 

EGCKDV , EGCKDZ , ACMLPL , ARDSDZ, 

ATDSD V , ATDSDZ .TCDSDr.TCTSDF, 

fpdflt.tdoflt.rfdflt.sfoflt, 

PF DFLT.TFOFLT.TFDYDF , MINUS!  6 ) 

INTEGER  THNAME 
COMMON  /EGEDB 1 / 

MO. NAM 1 ( 10 ) , THNAME ( 4 >,M0NAM2< 10) , IDACEGC 50) , 

IACABFI 50) ,EGFF( 4,50) , IEGABF<  50), IDRR< 50) 

INTEGER  GCN4ME .GSNAME 
COMMON  /G3IDS1/ 

NSr LS , IS” MA P < 5  )  , 

GCNAME ( 15  )  , 

GC'UMEt  50; .  IGGCATI  50  ! , 

IGSFLT ( 50)  ,  GSF  F ( 50)  , GSEMFC ( 5 . 50 ) , 

GS?.’/CTi  50,50  ■  . 

GS7UEH 5  ) . NGSTYP , IGSTY?< 30 > , 

GSUSGE  <  30 ) , IGSAGNi 8 , 30 > . 

GSETIM(8,30) 


:***  PRINT  TITLE 
C 

WRITE<6.711  ) 

711  ”ORMAT( 1H1 ,43X, 
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c 


h 


i 


WRITE! 6, 112;  NRNVYS 
112  FORMAT!  1H0/IH0/ 

1  1H  ,63X, -RUNWAYS-/ 

2  1H0.56X, "NUMBER  OF  RUNWAYS  »*,I2> 

DO  52  I R- ! , NRNWYS 

WRITE(6,700)  IRNWY<1,1R) 

700  FORMAT! 1H0/ 

2  1H  ,56X, -RUNWAY  ID  NUMBER  -*.13/ 

3  1H0.10X, -COORD  I  NATES  ( KM >*, 8X , -AVERAGE  EMISSION*, 6X, 

3  -HORIZONTAL  PLUME- , 7X , -VERTICAL  PLUME- , 7X , -RUNWAY  VECTOR*, 

3  3X, -RUNWAY"/ 

4  1H  , 10X , *( X  >» , 10X , -( Y )* , 10X , -HEIGHT  ( MET >« , 8X , -0 1 SPERS ION  (MET) 

4  ,6X, -DISPERSION  ( MET >-, 7X , -ANGLE  ( DEG )-, 7X, -LENGTH  (KM)-) 

WRITE (6. 63)  i RNWY (J,IR),0-2,7),DI SRNW( I R  > 

63  FORMAT! 1H  , F 1 5 . 3 , F 1 3 . 3 , F 1 6 . 2 . F23 . 2 , F2 1 . 2 , F2 1 . 2 , F 1 7 . 2 ) 

WRITE <6, 64)  ( IUSW0( IW. IR > , IW-1 , 17  > 

64  FORMAT!  1  H0 , 525! , -RUNWAY  USE  BY  WIND  DIRECTION*/ 

2  1H  ,13X, 

2  *<0«  RUNWAY  NOT  USED  WHEN  WINO  IS  FROM  THIS  DIRECTION- , 6X , 

2  *1-  RUNWAY  USED  WHEN  WIND  IS  FROM  THIS  DIRECTION)*/ 

3  1H0, 16X.-CALM  N  NNE  NE  ENE  E  ESE  SE  SSE-, 

3  *  S  SSW  SW  WSW  W  WNW  NW  NNW-/ 

4  1H  .13X.17I6) 

WRITE! 6,75)  ( IUSWD! IW, IR > , IW- 1 8 , 20 ) 

75  FORMAT! 1H0,45>:, "RUNWAY  USE  BY  SPECIAL  CASE  WIND  CONDITIONS*/ 

2  1H  , 2 1 X , 

2  -(0-  RUNWAY  NOT  USED  DURING  THIS  SPECIAL  CASE*,6X, 

2  -1-  RUNWAY  USED  OURING.  THIS  SPECIAL  CASE)*/ 

3  1 H0 , 47X , -CASE  1-.10X.-CASE  2-.10X.-CASE  3-/ 

4  IH  , 34X ,3116  ) 

WRITE! 6 , 5001 )  (ACNAME! IA ) , IA- 1 , NACTYP  ) 

5001  FORMAT! 1H0/1H  ,41X, 

1  -NUMBER  OF  ARRIVALS  ON  THIS  RUNWAY  BY  AIRCRAFT  TYPE-/ 

2WRITE<  6^65 )!*Rn5yAR< [A, IR) , IA*1 .NACTYP  * 

65  FORMAT! 1H  .4X.8F14.0) 

WRITE (6, 5002 )  (ACNAME! IA  ), IA- 1 , NACTYP  ) 

5002  FORMAT! 1H0/1H  , 40X , 

1  -NUMBER  OF  DEPARTURES  ON  THIS  RUNWAY  BY  AIRCRAFT  TYPE*/ 

2  1H  , 13X.8(A8,6X)  > 

WRITE! 6 , 65  )  <  RNWYOP! IA, IR) , IA-1 .NACTYP  ) 

NX-NIBTT! IR) 

IFO'IX.EQ.0)  GO  TO  73 
DO  70  I X- 1 , NX 

WRITE (6, 5003  >  IOIBTW! IX, IR), IDI3PA! IX, IR) 

5503  FORMAT!  1H0/5.H  ,51X, 

1  -INBOUND  TAXIWAY  ID  NUMBER  --,14/ 

2  1 H  39X 

2  -Id’oF  PARKING  AREA  TO  WHICH  THIS  TAXIWAY  IS  KEYED  -*,I4> 

WRITE! 6,5004  >  (ACNAME!  IA), IA-1 .NACTYP  ) 

5004  FORMAT! 1H0.42X, 

1  "-PACTIONAL  USAGE  OF  THIS  TAXIWAY  BY  AIRCRAFT  TYPE*/ 

2  1't  ,  I3X,6(A8,G\‘)  > 

WP.ITEI6.71  )  (  TTARFR!  IX,  IA.  IR),  IA-1,  NACTYP  ) 

71  -TP.MAT!1H  .4X.3F14.2) 

N  3=  ■;  I  BSEG!  IX.  IR) 

WRITE! 6. 72  >  NS , ( I IB5EG! IS , IX , IR ) . I S-l . NS  ) 

72  FORMAT! 1H0, 41 X. 

1  "NUMBER  O'  LINE  SEGMENTS  MAKING  UP  THIS  TAXIWAY  -  -.13/ 

2  I  H  ,  1  3  X  , 

2  "SEQUENCE  OF  CATALOGUED  LINE  SEGMENTS  MAKING  UP  THIS  TAXIWAY  -• 

2  I3,9<*,«,;5;/ 

3  *  H  ,8SX, 13,6! -,*, 12 ) ) 


n  o  o  one)  non  ooo  ono 


70  CONTINUE 
73  CONTINUE 

NX*i'IOBTT(  IP.) 

Ir{  f-’X  .EQ.jQT)  GO  TO  62 
DC  30  IX-l.NX 

WF.I7E<6,5005>  IDOBTW!  IX ,  I R  > ,  I  DOBPA(  IX, IR) 

5005  FORMAT!  1H0/IH  ,50X, 

1  ’•OUTBOUND  TAXIWAY  ID  NUMBER  -*,14/ 
t  in  39X 

2  -Id’oF  PARKING  AREA  TO  WHICH  THIS  TAXIWAY  IS  KEYED  •  *,I3) 
WRITE (6, 5004)  (ACNAME! I A > , I A- 1 . NACTYP ) 

WRITE! 6, 71 )  <  TTDPFR! IX, IA, IR), I A" 1 , NACTYP > 

NS*  ;OBSEG< IX, IR) 

WRITE (6.72 )  NC.< IOBSEG! I S , I  X , I R > . I S« 1 , NS ) 

30  C0N_INUE 
62  CONTINUE 

»•»  PRINT  INFORMATION  FOR  AIRCRAFT  SERVICE  VEHICLES 

wf:~e<  6,401 ) 

401  FORMAT (  1  HI  ,  43X  , 

1  *£.2  INFORMATION  FOR  AIRCRAFT  SERVICE  VEHICLES*) 

•  GSE  FUEL  CONSUMPTION 

WRITE! 6,411) 

411  FORMAT! 1H0/1H  .44X, 

1  ANNUAL  GSE  FUEL  CONSUMPTION  (GALLONS)  --*/) 

DO  420  IU-1.NSFLS 
I-ICFMAP! I U  > 

WRITE (6. 41 2)  FLNAME! I ) .GSFUEL! iU> 

412  FORMAT! 55X.A4.F17.0) 

420  CONTINUE 

*  AIRCRAFT  SERVICING  INFORMATION 

DO  490  IA»1. NACTYP 
I CAC*  IACT'/P !  IA) 

W?:_E( 6,42i  )  ACNAME < I DAC  > 

421  FORMAT! 1H0//1H  ,48X, 

1  * , A3 , *  SERVICING  INFORMATION  — *> 


WR I “ E ( 6,431  ) 

431  FORMAT! 1H0/1H  .54X, 

1  -GROUND  SUPPORT  EQUIPMENT-/ 

2  1H0,30;..-GSE  NAME*, 8X. -CATEGORY*, 8X, -FUEL*, 7X, -USAGE*. 

3  4X, -SERVICE  TIME  (HR)-/ 

4  •  H  ) 

DO  -40  IG-: . NGSTYP 

IF : IGSAGC! IA. 13).EO.0)  GO  TO  440 

:CGS*IGST/P<  1 0 > 

:U*:ScMAr<  IG3FLT!  IG  >  > 
iC  -  .  jSCA  '  .vj/ 

WRI'E(6 . 42":  )  GSNAME  <  IDGS  >  .GCNAME!  IC  )  .FLNAME!  IU  )  , 

1  GO’JSGEl  IG  '  .GSETIM!  IA.  IG  > 

432  FORMAT (  1 H  .  30). .  A3 . 8 X  ,  AS  .  8X  .  A4 , 8 X  .  F  4  .0 .  10X  .  F5 . 2  > 

440  CONTINUE 


REF  .IE L  ING 


I -DESK  IA) 

WR I "E i 6 , i 1 1 )  FLNAME! I > .ACFUEL! IA).ACSPIL!IA>, 


H 


o  o  o 


u 


1  ARFLVT( IA),DPFLVT< IA) 

111  FORMAT! 1H0/1H  ,  57X , -REFUEL ING  (*,A4,->*/ 

2  1H0.33X, 

2  -AVERAGE  AMOUNT  OF  FUEL  USED  PER  FILLUP  (LITERS)-, 

2  1«{ - . - ) , F 10. 2/ 

3  ’ H  , 33X , 

3  -AVERAGE  AMOUNT  OF  FUEL  SPILLED  PER  FILLUP  (LITERS)*, 

3  7 1  " .  -  ) ,  F 10.2/ 

4  1 H  , 33X  , 

4  -AVERAGE  AMOUNT  OF  FUEL  VENTED  PER  ARRIVAL  (LITERS)-, 

4  7;*.*>,r 10.2/ 

5  1H  , 33X , 

5  -AVERAGE  AMOUNT  OF  FUEL  VENTED  PER  DEPARTURE  (LITERS)* 

5  5! ».*>,F10.2) 

490  CONTINUE 

-**  PRINT  LANDING  AND  TAKEOFF  PARAMETERS 

WRITE ( 6 , 5060  > 

6060  FORMAT! 1  HI .44X, 

1  -£. 3  AIRCRAFT  LANDING  AND  TAKEOFF  PARAMETERS-) 

WRI”E( 6,6032  > 

6062  FORMATl 1H0/IH0, -AIRCRAFT-, 9X, -TAXI  SPEED- . 8X , -LANDI NG  SPEED*, 7X, 
1  -TAKEOFF  SPEED-, 5X, -IDLE  START  UP  TIME- , 3X , -ENG INE  CHECK  TIME* 

1  2X , *  I DLE  SHUT  DOWN  TIME*/ 

3  2X , -NAME* . 13X,*(KM/HR)", 13X,-( KM/HR )«, 1 2X .*( KM/HR )*, 1 1 X , 

2  M  IN/ENG  INE  )*  ,  8X  ,  *<  MI  N/ENGI NE  )  -  ,  8X  ,  -(  MIN/ENG  INE  >-/  ) 

DG  5064  IA* i , NACTYP 

WRITE (6,6056  )  ACNAME( IA) ,TXISPD( IA),LNDSPD( IA)  ,TOSPD( IA), 

1  SRT!JPT(  IA),EGCHKT(  IA),SHTDNT(  IA) 

6066  FORMATdH  , A8 . 4X  ,  1  P6(  E  1 5 . 4 , 5X  >  > 

6064  CON“INUE 

WR!TE( 6,6070) 

6070  FORMAT! 1H0/ 

2  1H  , -AIRCRAFT-, 6X, -APPROACH  ANGLE  1 *, 4X , -APPROACH  ANGLE  2*. 

2  4X, -APPROACH  SPEEO  1 *, 4X , -APPROACH  SPEED  2-.4X, 

2  -APPROACH  HEIGHT  2* . 4X , -TAKEOF F  WEIGHT*/ 

3  3X, -NAME *. 1 2X, •( DEGREE S ) ",  1 1 X .»< DEGREES >*, 1 2X , *( KM/HR )*,13X, 

3  «i KM/HR  )», 14X,*(KM)», 13X,*( 1000  LBS)-/) 

DO  5072  I A* 1, NACTYP 

WRITE! 6,6066  )  AC NAME ( IA>,DSCNT1( I A ) ,DSCNT2( IA ) , APSPD I ( IA ) , 

1  APSPD2< IA  ) , APPHT2( IA),TOWT( IA) 

6072  CONTINUE 

WF.  ITE  (  6 , 7000  ) 

7000  FORMAT( 1H0/ 

2  Ih  , -AIRCRAFT-, 8X, -CLIMB  ANGLE  1-.7X, -CLIMB  ANGLO  2-.7X, 

2  -CLIMB  SPEED  i",7X, -CLIMB  SPEED  2*. 6X. -CLIMB  HEIGHT  1*/ 

3  1H  ,2X, -NAME-, 1ZX, -(DEGREES)-. 1 1 X ,-( DEGREES >», 1 2X , -(KM/HR)*, 

3  13X, -(KM/HR)*, l4X,*(KM>*/> 

DC  ’001  I A* I, NACTYP 

WR;~E<  6,6065  )  ACNAME < IA),ASCNT1( IA>,ASCNT2( IA),COSPDl( I A ) , 

1  C03=D2< IA ) .COHT1 ( IA ) 

7001  CONTINUE 
WP.I’E'  5 ,7010) 

7010  F  OR  MAT (  1H0/IH  , -AIRCRAFT* , 10X , -AIRCRAFT- ,13X,*ENGINE*. 13X, 

1  -NUMBER  OF-. 12X, -AFTER--, 13X, -RUN  ROLL-/1H  , 2X , -NAME * , 1 5X , 

2  *:D*.18X.-ID*,16X,*ENGINES*,13X, -BURNER* , 1 3X , -EQUAT ION*/ ) 

DO  7020  IA*i , NACTYP 

I DAC*  I  ACT'-'  •>  (  IA) 

WRITE ( 6 , 7321 ) AC  NAME ( I A ) , IDAC , IDACEG! IDAC  5 , ENGNO< IA, 1 > . 

2  IACABF( IA ). IDRR< IA) 

7021  FORMATflH  , A8 . 4X , 5( II 1 , 9X ) > 

7020  CONTINUE 

WRITE<  6 , 6076  )  APPHT.CLMBHT 

Copy  cv.1  1  , 

Penuit  • 


I 


111 


of? 6  FORMAT< 1H0/1H  , -ALTITUDE  AT  START  OF  APPROACH  -*, 

1  1PEU.4,*  KILOMETERS*/1H0,  “ALTITUDE  AT  END  OF  CLIMBOUT 

2  E i 1 . 4 , *  KILOMETERS*) 

retjrn 

END 


03  own  i-*  oj  rj  *-*  r\>  ct»  ui  cj  in>  •—  ♦  u)u>MOiou*ufj*-*  o>  01  ^  w  n 


SUBROUTINE  OINCLC 


print  interim  calculations 


INTEGER  ACNAME , EGNAME , ENGNO 
REAL  LNDSPD 
COMMON  /ACEDB 1 / 

ACEMFC  t  8,10,6), ACNAME <  50 ) , EGNAME ( 50 ) , ENGNOI 50,2), 
ASCNT1 ( 50) ,ASCNT2( 50 ) , TX ISPD< 50 > , LNDSPDI 50 ) , 

APSPD 1 <  50 ) , C0HT1 ( 50  > ,APSPD2( 50 ) ,TOSPD( 50 ) , 

COSPD 1 <  50 > ,C0SPD2( 50 > , SRTUPT( 50) , OSCNTI ( 50) , 

EGCHKT( 50)  ,SHTONT( 50) ,DSCNT2( 50),APPHT, 

APPHT2( 50) ,CLMBHT,TOWT( 50) 

COMMON  /ACED62/ 

NACTYP , NRNWYS.NPKAR, IEGFLG, 

IACTYP ( 8  )  , ANNARRt 8 ) .ANNDEPC  8 ) ,ANNTGO( 8 ) , 
APRFCN(24,6),DEPFCN<24,6>,TGO<3,4),DISRNWC6), 

RNWY (7,6), I USWD (20,6), RNVYAR<  8,6). RNWYDP  (  8,6), 
ACFUEL(8),ARFLVT;8),DPFLVT(8),ACSPIL(8), 

ARSVEM< 6,8,5), DPSVEM1  6,8,5) ,NIBTT<  6),NIBSEG<8,6), 

1 1 BS£G  C 16,8,6 ),IOIBTW( 8,6), TTARFR( 3.8,6 l.NOBTTf 6), 
NOESEGf 8,6  ) , IOBSEGI 16,8,6), IOOBTVI 8,6) , TTDPFRt  8, 8 , 6 ) , 
NPASQi 6  ) , I DPRKAf 6  > ,PAREA<  6. 3 , 3 ) , IDIBPAJ 8,6), 

1 DOSPAl 8,6),NLSEGS,ACLNSG(  12,25) 

REAL  LUEMrC 
COMMON  /EMFDB 1 / 

EGtMFCi 6,4,50) , PLNAME ( 6 ) ,PPEMFC( 22 , 6 ) , EMFC INI  5 , 6 > . 

Tr EMFC( S ) , LUEMFCI  9 ,6 ) , ALPHA! 7  > , BETA(  7 ) , 

FLDEN3( 7 ) , FLNAME <  7 ) , AFEMFCf  2 , 6 , 6  > , ATE MFC ( 2,6,6), 
CSEMFC( 6,6)  , AFCSEM( 6,6)  ,AF SOAK, AT SOAK, 
AFBRTH,AT3RTH,FLTFCT<  7).FIXFCT(  7), 

WRKFCTC  7 ) 

COMMON  /DEFALT/ 

NPLTS. ITAPE.ACLNDY.ACLNDZ. 

TCVSDr .TCHBOF .TCHOOF .TCDYDF , 

TCDZDr  .  RUDSDF , RUT5DF . RUVSDF , 
RUHBDF.RUHODF.RUDYDF.RUDZDF, 

TFDZDF,TFQDF .TFHBDF .TFnODF , 
EGCKDY.EGCKDZ.ACMLPL.ARDSDZ, 
atdsdy .atdsdz.tcdsdf .tctsdf , 
FPDFLT.TODFLT.RFDFLT.SFDFLT, 

PFOFLT.TFOFLT.TFDYDF ,MINUS(6) 

INTEGER  THNAME 
COMMON  /EGEDB 1 / 

M0NAM1 ( 10 ) .THNAME ( 4  > .M0NAM2 ( 10 ) , I DACEGl 50 > , 

IACABF(  50)  ,EGFF(  4 ,50  )  ,  I  EGABF (  50  > ,  I  DP,R<  50) 

INTEGER  GCNAME .GSNAME 
COMMON  /GSEDB l / 

NSFLS, I SFMAP  <  5  ) , 

GCNAMEl 15) , 

GSNAME ( 50 ) , !GSCAT<  50 ) , 

IGSFiT( 50!  ,GSrF(50>,GSEMFC( 5,50), 

GSF.VCT<  50,50!  . 

GSFUEL ( 5  ) , NGSTYP , IGSTY»<  30 > , 

GSUSGE ( 30  )  , IGSAGN( 8,30), 

GSETIM( 8,30; 


DIMENSION  M0NAMC3, 10' 
DAT*  MONAM/ 


IDLE’,' 

I  ii  i 

’ ENG  I '  ! ;NE  C'  , 'HECK' 
’  RUNW  ,  '  AY  P  '  .  'OLL  1 
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c 

c-— 


S  ■CliH'.'B  1 

o  1  CL IM 1 , 'B  2 

7  ' APPR ' , 1 OACH 

3  ' APPR 1 . 1 OACH 

9  *  LAND ' , 1  I NG 

*  iii 

* 


PRINT  TITLE 


1  *  . 

2  1  , 

t 

•  t 


WRITE ( 6 , 5 10  > 

510  FORMAT< 1H1 ,45X, 

1  *C.  INTERIM 


CALCULATIONS*) 


C 

C***  PRIilT  AIRCRAFT  EMISSION  FACTORS 
C 

WRITE! 6 , 51 9  ) 

519  FORMAT! 1H0.20X, 

1  -C.l  AIRCRAFT  EMISSION  FACTORS  BY  AIRCRAFT  TYPE  * 

2  * , KG  PER  ENGINE  PER  HOUR)*/ 

3  1H  ) 

DO  7  I A* 1 , NACTYP 
I DAC- IACTY? ! I A ) 

WRITE (6,511  )  hCNAMEC IDAC  ) , IDAC , EGNAME! I DAC  > , I  DACES ( IDAC), 

1  ENGNO. IDAC.l ),(PLNAME< IP ) , IP- I .NPLTS ) 

511  FORMAT! 1H0/ 

1  1 H0 , 2 1 X , A3 ,  5X  ,  - 1 D  -*, 13, 6X, -ENGINE  -  * ,A8 , 6X , -ENGINE  ID  -*,I3, 

2  5,:, -NUMBER  OF  ENGINES  -*,12/ 

3  1H0, 14X , MODE  >- , 1 5X , 6 ( A4 , 1 2X  >  > 

DO  7  IM-1,10 

IF! ACE MFC! IA.IM, 1 ) . LE . 0. .AND. ACE MFC! IA,IM,2).LE.0. )  GO  TO  7 
WRITE! 6, 51 2)  ! MONAM! 0 , IM > , J- 1 , 3  ) . ! ACEMFC! IA, IM , I P ), IP-1 , NPLTS ) 

512  FORMAT! 1H  .  1 1  X  , 3A4 , 8X , 1P6(E10.3,6X)  ) 

7  COfTINUE 

C 

C  — *  PRINT  GROUND  SERVICE  EQUIPMENT  EMISSIONS 
C 

WRITE!  6,5969  > 

6969  FORMAT! 1H1 ,47X, 

1  "C . 2  GROUND  SERVICE  EQUIPMENT  EMISSIONS*/ 

DO  34  I A- 1 .NACTYP 
I DAC- IACTYP  < IA  > 

WRITE! 6,83)  AC NAME <  I DAC ) 

33  FORMAT!  1  H0/'  1  HIT ,  4  9X  ,  A8  . 

1  *  SERVICE  VEHICLE  EMISSIONS-) 

WRITE! 6 , 1 13 ) 

113  FORMAT! 1H0.56X, -KILOGRAMS  PER  ARRIVAL-) 

WRITE! 6.50JT  >  <  PL NAME (  I  P  )  , I P »  1  , NPLTS  ) 

5007  FORMAT! 1 H0 , 1 2X , -FUEL- , 1 3X , 6! A4 , 1 2X ) ) 

DO  35  IU-1 , N S F L S 
I  =  I SFMAP <  IU  ' 

WRITE! 6,87)  FLNAME! I >,<ARSVEM< I P , I A , I U > , IP- 1 , NPLTS ) 

37  FORMAT! 1H  , 1 2X , A4 , 1 4X , 1 P6! E 10 . 3 , 6X ) ) 

85  CONTINUE 
WRITE (6, 89) 

39  FORMAT! 1H0.55X, -KILOGRAMS  PER  DEPARTURE-) 

WP ITE! 6 ,5007  >  ( PL NAME!  I P  ) ,  I P- 1 , NPLTS  ) 

DO  88  IU-1.NSFLS 
I » I SFMAP (  IU  ) 

WR:-E( 6,87  >  FLNAME! I ) . ( DPSVEM! IP, IA, I U), IP-1, NPLTS) 

88  CON" I NUE 


34  CONTINUE 


RETURN 


END 
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OVERLAY<A8EMIV,3,0) 
PROGRAM  A8EMIV 


***•«  PROCESS  AIRBASE  EMISSION  SOURCE  INVENTORY 


| 


I 


4 


ft 


4 


REAL  LUEMFC 
COMMON  /EMFD5 1 / 

1  EGEMFCl 6 , 4 , 50  > , PLNAMEI 6),PPEMFC(22,6),EMFCIN(5,6), 

2  TF£Mr C( 6 ) , LUEMFC ( 9 , 6  ) , ALPHA! 7  > , BETA! 7 > , 

3  eLD£NS( 7  ) , FLNAME( 7  )  .AFEMFCC 2 , 6 , 6 ) , ATEMFC< 2 , 6 , 6 ) , 

4  CSEHFCI 6,6 ) , AFCSEM( 6,6)  ,AFSOAK,ATSOAK, 

5  AF5R-H .ATBRTH , FLTFCT ( 7 ) , F I XFCT< 7 ) , 

6  WRKFCT1  7 ) 

COMMON  /DSTRBT / 

1  ACMO  (  13,50)  ,  ACCY  ( 2 , 50  > , ACHR( 24 , 50 ) , VHMLMOC  13), 

2  VHML DY< 2  ) , VHMLHRl 24 ) ,CVABMO( 13), CVABDYt 2 ) , 

3  C/ASHR<  24  >  ,CV£NMO(  1 3  )  .CVENO Y<  2  ) ,  CVENHRI  24  > , 

4  FLMO( 13,7),FLDY(2,7),FLHR(24,7> 

COMMON  /ANNHET / 

1  TBAP. .  AOD  ,  P  ,  PA , 

2  V/35AR  .  QTBAR  ,  AM06AR 
COMMON  /DEFALT / 

1  NPLTS. ITAPE.ACLMDY.ACLNDZ, 

2  TCVSDF .TCHBDF .TCHODF ,TCDYDF , 

3  TCDZDr , RUDSDF , RUTSDF , RUVSDF , 

4  RUHBDF .RUHODF .RUOYDF , RUDZDF , 

5  DZDF .TFQDF .TFHBDf .TFHODF , 

6  EGCKD V , EGCKDZ , ACMLPL , ARDSDZ , 

7  ATDSD V .ATDSDZ , TCDSDF .TCTSDF , 

3  FPDrLT.TDDFLT.RFDFLT.SFDFLT, 

9  PFDFLT,TFDFLT,TFDYDF,MINUS(6> 

COMMON  /ARRAYS/ 

1  HCURK< 10,50), HCBRTHt  5 , 100 ) , HCEVP (3,50) 

COMMON  /SPACE/ 

1  SORCE !  2100 ) , SOREM<  8 , 250  > 

COMMON  /POINT?./ 

1  M , NSRCES , NMAX , NMAXE , 

2  LSP.CE3 .  NTOT 
COMMON  /AUTOS/ 

1  XEMITT( 2,6,6 ),YCLDST( 6,6 ), SOAK, BRTH, 

2  IAP.ZA.  IHDV,  IAAT.  IYEAR 
COMMON  /TOTS/ 

1  TOTEMv 20,6), TOTEVP< 10 > , EMI SS ( 8 , 1 5 , 6  ) 

DIMENSION  VHTILEl 4,3) 

C 

C**»*  ZERO  ACCUMULATORS 
r 

DO  10  I P  =  1  ,S 
DO  10  IM*3 , 20 
TOTEM( IM. I?  -*0, 

10  CONTINUE 

DO  20  I M=  1  ,  l.T 
"GTE  VP < I M >-0, 

00  ::n'':nue 

r 

;*** "  32I’'T  TITLE 
0 

VP : “E ( 6 , 90 > 

90  FORMAT!  lr-..  .  2S(  /  ) ,  53X ,  1 9HS  E  C  T  I  0  N  I  I.///, 

1  52X.29HA  IRBASE  SOURCES) 

C 

C***»  P E "  ■* G R M  VEHICLE  EMISSION  INVENTORY 


Copy  available  ‘o  DTIC  doe:  not 

permit  fully  legible  iepioduction 


4 
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READ  AIRBASE  VEHICLE  AGE  DISTRIBUTION 
DATA  SET  11 
READ!  5,8676  )AE 1 234 

READ! 5, 1 1  )  IAREA, IHOVML, IHDVCV, IAATML , IAATCV , I  YEAR 
IF! I HDVML . EQ .0 ) I HDVML =2 
IF; IHDVCV. 20. 0>THDVCV-2 
11  FORMAT! 2014) 

C  PRINT  AIRBASE  VEHICLE  AGE  DISTRIBUTION 

200  FORMAT! 1H1 .22X.93HA.  VEHICLE  AGE  DISTRIBUTI 
.ON  AND  EMISSION  FACTORS  /, 

. 1H-.S0X.37HA. 1  AIRBASE  VEHICLE  AGE  DISTRIBUTION, /1H-/, 

. 34H  VEHICLE  EMISSION  AREA  IS  SET  FOR  , 4A4/ 1 H- , 10X , 28HMII ITARY  VEHI 
.OLE  INFORMATION/) 

WRITE! 6,200)  ! VHTI LE! I , I AREA  ) , I - 1 , 4  ) 

I HDV* I HDVML 
I AAT» IAATML 

!*  vIHDV.EQ.I)  WRITE! 6 ,203 ) 

203  FORMAT! 1H0, i 13H  NO  GROSS  VEHICLE  WEIGHT  DEPENDENCE  FOR  HEAVY  DUTY 
•GASOLINE -POWERED  MILITARY  VEHICLES  EMISSION  FACTOR  CALCULATION  > 

IF  ! I HDV . EQ . 2  ■  WRITE<  6,204) 

204  FORMAT! 1H0, 100H  HEAVY  DUTY  GASOLINE  POWERED  MILITARY  VEHICLE  EMISS 
.ION  FACTORS  ARE  DEPENDENT  ON  GROSS  VEHICLE  WEIGHT  ) 

IF  ! IAAT . EQ.0  >  WRITE! 6,201) 

201  FORMAT! 1H0.51H  MILITARY  VEHICLE  AGE  DISTRIBUTION  SUPPLIED  BY  USER) 
IF  ( IAAT .  EQ  .  i  >  WRITE!  6 , 202  ) 

202  FORMAT! 1H0.61H  NATIONAL  VEHICLE  AGE  DISTRIBUTION  USED  FOR  MILITARY 
.  VEHICLES  ) 

C  SUBROUTINE  VEFCTR  FOR  MILITARY  VEHICLES 
CALL  VEFCTR 
DO  21  1-1 ,6 
DO  21  0-1.6 

AFCSEM1 J , I J-YCLDST! J , I J/1000.0 
DO  21  K-i  ,2 

21  AFtMFC! K,  J,  I )*XEMITT! X, 0 , J  J/1000.0 
AF  SOAK -SOAK/ 1000 . 0 
AF3RTH-BRTH/ 1000.0 
I  HDV- IHDVCV 
I  AA“- IAATCV 
WR I TE ( 6 , 700 ) 

700  FORMAT! 1H-/, 1H  , 10X , 28HC I V I L I AN  VEHICLE  INFORMATION/) 

IF  ( IHDV.EQ. 1 >  WRITE ( 6 , 207 ) 

207  FORMAT!  1H0. 11 3H  NO  GROSS  VEHICLE  WEIGHT  DEPENDENCE  FOP.  HEAVY  DUTY 
.GASOLINE-POWERED  CIVILIAN  VEHICLES  EMISSION  FACTOR  CALCULATION  ) 

le  (IHDV.EQ.  2  WRITE!  6,208) 

208  FORMAT! 1H0, 100H  HEAVY  DUTY  GASOLINE-POWERED  CIVILIAN  VEHICLE  EMISS 
.ION  FACTORS  ARE  DEPENDENT  ON  GROSS  VEHICLE  WEIGHT) 

IF  ! IAAT. EQ.0  '  WRITE! 6.205) 

205  FORMAT! 1H0.51H  CIVILIAN  VEHICLE  AGE  DISTRIBUTION  SUPPLIED  BY  USER) 
IF  (  IAAT.  EQ.  1  .■  WRITE!  6 , 206  ) 

206  -QRMAT! 1H0.51H  NATIONAL  VEHICLE  AGE  DISTRIBUTION  USED  FOR  CIVILIAN 
.  VEHICLES) 

C  SUBROUTINE  VErC“P.  FOR  CIVILIAN  VEHICLES 
CAw.  VEFCTR 
.  0  .'2  I  =  i,c 
-•0  .2  0  —  1,3 

CSEMFC! J , I  '-YCLDST! 0 . I  >/i000.0 

22  k-i. 2 

2?  r,"E:-iFC(  K  ,0  .  I  )  -XEM I  TT!  K  ,  0  ,  I  )/ 1000.0 
A” 2  OAK- SOAR/ 1000 . 0 
A“E:.TH-BRT^/ 1.000.0 

C  PR  I UT  EMISSiO.s  VALUES  FOR  MILITARY  VEHICALS 

50  CQRXAT!  1 H 1  ,42>.,')3HA.2  MILITARY  AND  CIVILIAN  POLLUTION  EMISSION  FA 

.  CT0R3  ) 

51  .-OR.-iAT!  1H- ,  36X ,  65HMI L  ITARY  VEHICLE  COLD  STARTS  PLUS  HOT  RUNNIN 


ooo  ooo  ooo 


.G  EMISSIONS  (KG/MILE)  ) 

52  FORMAT! IK- ,  44X .  48HMIL ITARY  VEHICLE  HOT  RUNNING  EMISSIONS  (KG/M 

.HE:  ) 

53  FORMAT ( 1 H- ,  4 1 X , 53HMIL I TARY  VEHICLE  COLD  START  EMISSIONS  (KG/CO 

.LD  START)) 

54  FORMAT! 1H- .  10X , 7 1 HMI L ITARY  VEHICLE  CARBURETOR  SOAK  HYDROCARBON 

.  uOSSES  PER  VEHICLE  START  ,1PE10.3,5H  (KG),/lH0, 

. 10X.55HMILITARY  VEHICLE  HYDROCARBON  BREATHING  LOSSES  PER  VEHICLE  S 
.TART  , IPE 10. 3 ,5H  (KG)  ) 

55  FORMAT! 1 H-/ 1H0, 36X , 65HC I VIL IAN  VEHICLE  COLD  STARTS  PLUS  HOT  RUNNIN 
.G  EMISSIONS  i KG/MILE)  ) 

56  FORMAT! 1 H- . 43X , 48HC I V I L IAN  VEHICLE  HOT  RUNNING  EMISSIONS  (KG/MILE) 
.  ) 

57  FORMAT! 1 H- . 4 1 X , 53HC I V I L I AN  VEHICLE  COLD  START  EMISSIONS  (KG/COLD  S 

.TART  )  ) 

58  FORMAT ( 1H-. 10X.71HCIVILIAN  VEHICLE  CARBURETOR  SOAK  HYDROCARBON  LOS 
.SES  PER  VEHICLE  START  .1PE10.3.5H  <KG),/1H0, 

. 10X.S5HCIVILIAN  VEHICLE  HYDROCARBON  BREATHING  LOSSES  PER  VEHICLE  S 
.TART  , i PE  10. 3, 5H  (KG;  ) 

60  T OF; MAT!  1  H 0. 10X  ,  5HCLASS  ,  1 4X  ,  5!  A4 . 1 4X  )  ,A4  ) 

61  FORMAT! 1H  , i 2X . II . 4X . 1  PS! 8X , E 10. 3  )  ) 

WRITE! 5 ,=0) 

WRITE  <  6 , 5 1  > 

WP.  ITE  <  6 , 50  :•  (  PLNAME  (  I  )  ,  1  =  1  .NPLTS  ) 

DO  250  0  =  1 .5 

250  WRI TE ( 6 , 6 1  ;  0,(AFEMFC(2,J,I),I=1,NPLTS) 

WRITE! 5.52; 

VP  I ~t(6.60;  i PLNAME! I ) , I » 1 , NPLTS  ) 

20  251  0  =  .  6 

251  WF.  I  “E  <  6 , 6  1  .  0 . (AFEMFC! 1 ,0 , I > , 1=1 .NPLTS > 

-  R  I  "  £  <  6  ,  5  3  > 

WRITE! 6.60)  (PLNAME! I ) . I » I , NPLTS > 

DO  252  1=1.5 

252  WRITE! 6 ,61  )  i ,  (  AFCSEM!  I .0 > ,0  =  1 , NPLTS ) 

WP I ~E ( 6 , 54  )  AFSOAK , AFBRTH 

C  P  R I  J  7  EMISSION  VALUES  FOR  CIVILIAN  VEHICLES 
WRITE! 6.551 

WPI-E(6.50>  ! PLNAME! I ) , 1  =  1 .NPLTS  > 

20  250  0=1.5 

250  WP,  I  “E  (  6 , 5  1  )  0  .  (  ATSMFC!  2 .0  .  I  ) ,  1  =  1  .NPLTS  ) 

WR I TE i 6 . 56  > 

WP ITE ! 6 . 60 )  ! PLNAME! I),!»1,NPLTS) 

DO  251  0=1.5 

26 i  WRITE! 6. 51)  0 . ( ATEMFC! 1 , 0 , I  ) , I  *  1 . NPLTS  ) 

W  r,  1  ~  E  (  6 , 5  7  > 

WRI-£<  6,60;  ! PLNAME! I  ) , 1  =  1 .NPLTS  > 

DO  252  1  =  1  ,  S 

252  V?.ITE<6,61  )  I  ,  >  CSEMFC!  I .  J  )  ,0  =  1  .  NPLTS  ) 

WRITE  (6, 58;  ATSOAK  ,  ATBP.TH 

***»  PERFORM  AIRBASE  AREA  SOURCE  INVENTORY 

NS?.CES=0 
CAL.  ABPTIV 

****  PERFORM  AIPBA2E  AREA  SOURCE  INVENTORY 

NS  RCE  S=0 
CALL  ABARIV 

*=*»  PERFORM  AIRBASE  LINE  EMISSION  INVENTORY 

NSRCES-0 
CALL  ABLNIV 
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SUBROUTINE  VEFCTR 
INTEGER  CLDSTF. 

COMMON  /AUTOS/ 

1  XEMITK  2 . 6 , 6  ) ,  YCLDSK  6 , 6  ) ,  SOAK ,  BRTH  , 

2  IAREA. IHDV  IAAT  I  YEAR 

DIMENSION  EXEM( 6,3) ,CSCQ( 6  )  ,CSHC( 6  ) , CRANK < 6 ) , EVAP(  6,3) 

do  ;  j-i.s 

DO  :  K-1,6 
YCLDST<O.K>-0.0 
DC  I  1-1,2 

I  XEMITTC  I  ,  J.X.  >-0.0 
M-2 

CLOSTR-0 

CAL-  TREFCT  ( CLDSTR , EXEM, CSCO.CSHC , EVAP .CRANK, IAREA, IHDV, IAAT, 

I  I  YEAR  ) 

5  DO  10  J-l  ,6 
DO  II  K-1,3 

X£MITT(M,0,\/-EXEM{J,K) 

IF<  K.E0.2  >  XEMITKM,  J,2)-EXEM<  J,2)+CRANK<  0  ) 

IF; j.GT.2.AND.K.EQ,2)  XEMITT(M,0,2>-XEMITTtM,J, 2 )+EVAP (0,2) 

II  CONTINUE 

XEMITKM,  O.i>-0.  58 

xemitkm, o,s  1-0.20 

I  r  C  I1 .  L T  .  5  )  GO  TO  10 
XEMITT(M,6,x  )-l  .2 
XEMITKM. 6. S  >-2.4 
10  CON" I NUE 

IFCM.EQ. 1  )  30  TO  IS 
M-l 

CLDSTR-1 

CALL  TFENTR  (CLDSTR. EXEM, CSCO.CSHC. EVAP .CRANK, IAREA, IHDV, IAAT. 

I I  YEAR  ) 

GO  TO  5 

IS  SOAK-EVAP (1,3) 

BRTH-E VAP ( 1.1) 

DO  00  0-1,6 
Y CLOSK  0 , 1  j-CCCO< J  1 
20  YCLDSKO  ,2  )-CSHC(J  ) 

RETURN 

END 
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SUBROUTINE  TREFCT  <CLDSTR,EXEMI , CSCO,CSHC,EVAP .CRANK, I AREA, IHDV, 
1  IAAT , YEAR  > 

INTEGER  TRETIT.OPT 
INTEGER  YEAR,  RTROFT,  CLD5TR 

DIMENSION  BYEFCO< 6,31 >.  BYEFHCI 6,31  ) ,  BYEFNOf 6,31  ) , 

DETNOC 6.31,16), 


BYEFHC (6  31) 

DETCO( 6 , 31 , 1 6  > ,  DETHCt 6 ! 31 , 16 > ,  DETNO( 6 . 31 , 16 ) , 

RCSCO( 6,31  ) ,  RCSHC( 6,31  ) , 

RTROCOt  6,31 ) ,  RTROHCI 6,31 ) ,  RTRONO< 6,31), 

YEFCO<  6,31),  YEFHC.(  6,31  >,  YEFNO(6,31), 

VEFCSC( 6,31),  YEFCSH<  6,31 ) , 

SCO<  6  ) ,  SHC(6>,  SNO( 6  ) , 

CREF (6,31  : ,  EVEF  <6,31,3),  REGIS(16,6),  AAT(16,6),  PAAT(16,6>, 
SUM( 6  > ,  PTRVL (6,16),  WFCTR(6>,  WEVAP(3), 

EXEMI ( 6,3),  CSCO< 6  ) ,  CSHC<6>,  CRANK! 6  ) ,  EVAP<6,3>,  Y(2) 


RTRONO! 6,31), 


SNO( 6  ) , 


FEXNOC 31 , 3 , 3  > , 

A  HDVCO( 31,3,3),  HDVHC( 31,3,3),  HDVNO( 3 1 , 3 , 3 ) . 

B  FDEFCO! 31),  FDEFHC(31>,  FDEFNO! 31  ) , 

C  FDETCO<21,10,2>,  FDETHCf  21  ,  10,  2  > ,  FDETNOf  21 , 10, 2  ) , 

C  FCHDCOf 16),  FCHDHC(16),  FCHDNO(16), 

D  FFCSCOf 31 ,3 >,  FFCSHCf 31 , 3 > , 

E  HOCSCOM),  HDCSHC  (  4  )  , 

F  CM( 10 ) ,  FCRNK<31 .2,2),  FEVAP (31,2,2),  CMH( 16  ) , 

G  3EV1  (  31 .3,2  .  SEV2  (  31 ,3 ,2  ) ,  SEV3<  31 ,3,2  ) 

DIMENSION  TRETIT( 16 > . OPT< 6 ) , RAG  I S( 16,6), RFG I S(  16,6) 

Data  TRETIT  /jet.  1 ,2, 3, 4. 5, 6, 7, 8 ,9, 10,  1 1 , 12, 13, 14, 15/ 

USEPA  EXHAUST  EMISSION  FACTORS  --  1560-1990  (GRAMS/VEHICLE-MILE) 
FIRST  31  VALUES  ARE  AUTOS,  NEXT  31  ARE  LIGHT  DUTY  TRUCKS,  NEXT 
31  ARE  HEAVY  DUTY  GASOLINE-POWERED  TRUCKS 
DATA  FEXCO/ 


DIMENSION  F EXCO( 3 1 , 3 , 3  > ,  FEXHCl 3 1 , 3 , 3 > ,  FEXNO( 31 , 3 , 3  ) , 

V  HDVCO( 3 1 , 3 i 3 ) ,  HDVHC( 31,3,3),  HDVNO( 3 1 , 3 , 3  ) . 

!  FDEFCO( 31),  FDEFHC(31>,  FDEFNO( 31 ) , 

I  FDETCO( 21,10,2),  FDETHCf 21 , 10, 2 > ,  FDETNOf 21 , 10, 2 > , 

:  FCHDCO< 16),  FCHDHC( 16 ) ,  FCHDNO(16), 

)  FFCSCOf 31 ,3 >,  FFCSHCf  31,3), 

HDCSCOf 4  )  ,  HDCSHC ( 4  )  , 


A 

8*87. , 

46. ,  39.  ,  36.  . 

34.,  3*19., 

12.5, 

15*1.8 

E 

3*37. , 

46..  39.,  36., 

34..  3-19., 

12.5, 

15*1.8 

C 

10*140. , 

21*130 . , 

C 

8*130. . 

74.,  48.,  72., 

75.,  3-42., 

20.0, 

13*1.8 

E 

8*130. . 

74.,  48.,  72.. 

75.,  3*42., 

20.0, 

15*1.8 

F 

10*2:0.,  21*190. 

♦ 

G 

6 •' 8 7  .  ,  51  ..  50.. 

46 . ,  39 . ,  36 . , 

34.,  3*19., 

2.8, 

15*1.8 

H 

6*87.,  51..  50., 

46.,  39.,  36.. 

34.,  3*19., 

2.8, 

15-1.8 

I 

10*140. , 

5*130.,  16*81./ 

DATA  FEXHC/ 

A 

3*8.8, 

4.5,  4.4,  3.6, 

2.9,  3-2.7, 

1.3, 

15*. 23 

B 

8*9  .8, 

4.5,  4.4,  3.6. 

2.9,  3*2.7, 

1.3, 

15*. 23 

C 

10*17. , 

4*16.,  17 

*13.  , 

D 

8*10.  . 

6.0,  5.4,  6.1, 

5.3,  3*4.9, 

1.3, 

15*. 23 

E 

3*10. , 

6.0,  5.4,  6.1, 

5.3,  3*4.9, 

1.8, 

15*. 23 

r 

10*19., 

4*18.,  17 

*15.  , 

G 

5*8.8,  6.0,  4.6, 

4.5,  4.4,  3.6, 

2.9,  3*2.7, 

.  33 , 

15*. 23 

H 

6*8.8,  6.0,  4.6, 

4.5,  4.4,  3.6. 

2.9,  3*2 . 7  , 

.33, 

15*. 23 

I 

10*17. , 

2*16.,  3*13.,  16*4.1/ 

DATA  FEXNO'' 

A 

c*3.6.  4.3,  5.5, 

5.1,  2*4.3, 

2*2.3,  2.2, 

1.6, 

14*. 31, 

e 

3*3.6,  4.3,  5.5, 

5.1,  2*4 . 8  . 

?  *  ?  0  o 

<-  fc.W,  Im  •  im  , 

1.6, 

14*. 31 

r 

10*9 . 4 . 

21*9.2. 

D 

€  - 1 . 9  ,  3.2,  2.6, 

2.3,  2*3.1, 

2*1.4,  1.4, 

1.3, 

14*. 31 

E 

b  *  1 . 9 ,  2.2.  2.6, 

2.6.  2*3.1, 

2*1.4,  1.4, 

1.3, 

14*. 31 

c 

10*5.0, 

21*4.9. 

G 

6*  2. 5, 2*3. 3,  3, 5 

.5,5.1,  2*3.5. 

2*2.3,  1.1, 

1  1  . 

14*  .  31  , 

H 

5*  I,. 6, 2*3. 4. t.. 3, 5 

.5,5.1,  2*3.5. 

2*2.3,  1.1, 

1.1, 

14*  .  31  , 

I 

10*9.4, 

5*9.2,  15 

*2.8/ 

USE  PA  DIESEL  EMISSION  FACTORS 


1960-  1990 


DA--, 

p'DEFCO/ 

10*49.2, 

21*32.5/ 

n  r  “  t 

FDEFHC/ 

10*9.34, 

21*3.73/ 

Jr*  1 

F  DErNO/ 

10*51 . 5 , 

21*76.4,- 

<• 

C  HEAV  ■  j JTY  VEH’CLE  EXHAUST  EMISSION  FACTORS  1960-1990  SWRI  STUDY,  FEB 


120 


no  non  noon  o  non 


FIRST  31  VALUES  ARE  FOR  GVW  6000- 1 6000  LBS 
NEXT  31  VALUES  ARE  FOR  GVW  160*1-33000  LBS 
ME XT  31  VALUES  ARE  FOR  GVW  GREATER  THAN  33000  LBS 
DAT,,  HDVCO'- 

A  10*108.5.21*  100. 8 ,  10*146.2,21*135.7,  10*271.3,21*251.9, 

2  I 0*162. 8. 23*147. 3.  10*219.2,21*198.4,  10*407.0,21*368.2. 

C  10*108.5,5*100.8, 16-62.8, 10*146.2,5*135.7,16*84.6, 10*271 .3, 

D  5*251.9,16*157.0/ 

DATA  HDVHC/ 

A10* 13. 1 ,4*12.3, 17* 10. 0,10*20. 2, 4* 19.0, 17*15.4,10*29.0,4*27.3, 
817*22.3,  10*14.5,4*13.9, 17*1 1 .6, 10*22.6,4*21 .4, 17*17.8,10*32.4, 

04*30.7,17*25.6,  10*13. 1,2*12.3,3*10.0,16*3.2,10*20.2,2*19.0, 

33*15.4,16*4.9,10*29.0,2*27.3,3*22.2,16*7.0/ 

DATA  HDVNO/ 

A  10-9.4,21*3.2,  10*9.6,21-9.4,  10*9.3,21*9.1, 

3  10*5.0,21*4.9,  10*5.1.21*5.0,  10*5.0,21*4.9, 

0  10*9.4,5*9.2,16*2.8,  10*9.6,5*9.4.16*2.9,  10-9.3,5*9.1,16*2.8/ 
COLD  START  RATIOS  FDR  LDV  FROM  6-CITIES  AND  GM  DATA  1960-1990 


3*. 175, 

.274, 

.347, 

.305, 

5*. 322, 15*1 .369, 

8*. 138, 

.220, 

.372, 

•  t.85, 

5*. 237, 15*1 .369, 

49.-372, 

.274, 

.347, 

.305, 

4*. 322, 16*1 .369/ 

3*. 163, 

.227, 

.263, 

.229, 

5*. 221 ,15*0.556, 

8*. 199, 

.334, 

.  396 , 

.297, 

5*. 358,  15-0.556 

93. .291 , 

.227, 

.263, 

.229, 

4*. 221 , 16*0.556/ 

COLD  START  RATIOS  FOR  HDV  FROM  SURI  STUDY  ALL  MODEL  YEARS  AND  AREAS 
FIRST  VALUE  IS  FOR  ALL  HDV,  NEXT  3  ARE  FOR  GVW  CLASSES 
DATA  HDCSCO/  .105,  .238,  .076,  .033/ 

DATA  HOCSHC/  .142,  .171,  .139,  .131/ 

EPA  CRANKCASE  AND  EVAPORATIVE  EMISSIONS  —  KIRCHER  1/12/73  1960-90  G 

FIRST  31  VALUES  ARE  LIGHT-DUTY.  NEXT  31  ARE  HEAVY-DUTY 


DATA  FCRNK/  3*4.1,  5-0.8.  23*0.0,  8*5.2,23*0.0, 

A  4.1,  3*0.8,  27*0.0,  4*5.2,27*0.0/ 

DATA  FEVAP /  11*3.0,  0.5,  19*0.2,  31*3.0, 

A  10*3.0,2*0.5,19*0.2.  13*3.0,13*0.2/ 

EVAPORATIVE  EMISSION  FACTORS  BY  SOURCE  1960-1990  6-CITIES  STUDY 
FIRST  31  VALUES  ARE  OIURNAL  LOSS,  NEXT  31  ARE  RUNNING  LOSS,  NEXT 
31  ARE  HOT  SOAK  LOSS 


DATA  SEV1  / 

A  11*26.0,  16.3,19*6.5, 

8  31-26.0, 

DATA  SEV2  / 

C  11*75.3,  47.2,19-18.9, 

D,  31*75.3, 

DATA  SEV3  / 

E  10*26.0,2*16.3,19*6.5, 

F  13*26.0.18*6.5, 


31*0.0, 

31*0.0, 

31*0.0, 

31*0.0, 

31*0.0, 

31*0.0, 


11*14.7, 
31*14.7  / 


10.9,19*4.4, 


11*46.7,  34.8,19*13.9 

31*46.7  / 

10*14.7,2*10.9,19*4.4, 
13*14.7,18*4.4  / 


USEPA  EXHAUS-  EMISSION  DETERIORATION  FACTORS  1960-1980  LIGHT  DUTY 
EACH  SET  OF  21  VALUES  REPRESENTS  THE  AGE  OF  THE  VEHICLE 


DATA  FDET 

CO/ 

21*1 

.00 

A 

3*1 

.0, 

1 

24, 

1 

.42, 

5*1 

.18 

i 

.04, 

5*1 

.16, 

r* 

U 

S*i 

.0. 

1 

3b 

1 

.53, 

5*1 

.32 

i 

.30, 

5*1 

.  34  , 

c 

8*1 

.0, 

i 

4. 1  , 

1 

.59, 

5*1 

.38 

i 

.36, 

5*1 

.50, 

D 

3*1 

.0. 

1 

/  , 

1 

.  63  . 

5*1 

.  40 

i 

.43. 

5*1 

.62, 

E 

8*1 

.0, 

=  z , 

1 

.  68  , 

5*1 

.  44 

i 

.  44  , 

5*1 

.75, 

F 

3*1 

.0, 

5  « 

1 

.71  . 

5*1 

.47 

i 

.-19, 

5*1 

.38, 

3*1 

.0, 

I 

6  . 

1 

.75  , 

5*1 

.50 

i 

.56, 

5-2 

.00, 

H 

2-1 

.0, 

*3  r . 

1 

.79. 

5*1 

.51 

i 

.  63 , 

5*2 

.  10, 

i 

3*1 

.0, 

i 

•  * 

1 

.  82  , 

5*1 

.56 

i 

.69, 

5*2 

.22. 

F.21 

*  i .  00 ,  r» 

*  1 

00,  1 

13.1. 

11.1 

.24,1 

.42, 

5*1 .18,6 

-1.16, 

6*1 

.00. 

1.21 

F  i  . 

13,1 

.  35 

,  1 

52,5 

« 

1.32. 

6*1  . 

34, 

6 

*1.00 

1 

24,1 

.23. 

1 

41,1 

.59, 

GS" 

1  .  28 

,6* 

1  . 

0. 

6*1 

.00, 

1.25, 

1  • 

29 

,1.47 

*  1  • 

63,5 

*1.40 

6*1  . 

62, 

H5» 

1  .00 

,  1  . 

Zc 

: .  25 

l  .52. 

1.53 

,5-1  . 

44 

.  6 

*1.75 

6*1 

.00, 

i 

29,  1 

.  40. 

1.53 

i  I  . 

"* .  5 

*1  . 

47 

5  *  1  . 

33  , 

6* 

1.00, 

i 

31 

,1.46 

£3  ,  1 

.75, 

5*1 .50 

,6*2 

.00. 

:  .00 

.  i  . 

3  2 

: .  50 

1 

1.67. 

1.79 

,5*1  . 

si 

.  6 

*2.  10 

» 

6-1 

.00, 

1 

34  ,  1 

.56. 

1  .72 

<1 

.32,5 

*  !  . 

56 

6*2 

.22/ 

ATA  FDETHC. 

• 

21*1 

.00 

* 

A 

3-1 

.0, 

1 

12, 

1 .  10. 

5*1 

.05 

• 

1 .00. 

5*1 

,14. 

B 

3*1 

.0, 

1 

:s. 

1.16, 

5*1 

.  10 

* 

1.13, 

5-1 

.30, 

C 

3*1 

.0. 

1 

T*  7 

4-  “  « 

1.18, 

5*1 

.  13 

« 

1.22, 

5*1 

.44, 

D 

2*1 

.0, 

1 

•?  T» 

t-  -4  , 

1,21, 

5*1 

.15 

1.29, 

5*1 

.55, 

E 

2*1 

.0, 

1 

->  t, 

•  1 

1.23, 

5*1 

.17 

* 

1.37, 

5*1 

.67, 

F 

3*1 

.0. 

1 

26, 

1.25, 

5*1 

.20 

* 

1.43, 

5*1 

.77, 

G 

8*1 

.0, 

1 

30, 

1.28, 

5*1 

.22 

♦ 

1.50, 

5*1 

.88, 

H 

S*1 

.0, 

1 

4 

32, 

1.29, 

5*1 

.24 

* 

1.56, 

5*1 

.96, 

I 

8*1 

.0, 

1 

35, 

1.31 , 

5*1 

.26 

% 

1.63, 

5*2 

.07, 

E2 

1*1.00,6 

*  i 

.00, 

1.14,1 

,07.1 

,12. 

1  .  10 

,5*1. 

05 ,  a 

*1.14, 

6*1 

.00 

1 

.22 

• 

FI 

.  10,  1 

.18 

,  1 

5*1 . 10 

.6*1  . 

30, 

6-i 

.00, 1 

.25, 

: .  12, i 

.21, 

1 

.  18 

5*1  - 

13, 

G6 

*1.44 

,  6*1 

.00, 

1.27,1 

.14,1 

.23, 

1.21 

,5*1 . 

15,6 

*1.55, 

6*1 

.00, 

1 

.29 

♦ 

HI 

.15.1 

.26 

1  * 

23, 

5*1.17 

,6*1 . 

67, 

6*1 

.00, 1 

.30, 

1.17,1 

28, 

1 

.25 

5*1  . 

20, 

1 5 

*1.77 

,  6 

"1 

.00, 

1.32,1 

.18,1 

.30, 

1.28 

,5*1. 

22,6 

*1.88, 

6* 

1 

.00 

1 

,35 

t 

01 

.  2,7 . 1 

.32 

1 

*  - 

•  29, 

5-1.24 

.6*1 . 

96, 

6-1 

.00,1 

.25, 

1.21,1 

.35, 

1 

.31 

5*1 . 

25 , 

Ko"2 .07/ 

DATA  FDETNO/  21*1.00, 

A  13*1 .0,2*1 . 1 !, 1 .00, 1 .03.4*1 . 17.  13*1.0,2*1.18,1.18,1.07,4*1.37 

B  13*1.0,2*1.20,1.23,1.10,4*1.53,  13*1.0,2*1.21,1.23,1.13,4*1.67 

C  13*1.0,2*1.22,1.41,1.17,4*1.82,  13*1.0,2*1.23,1.45,1.19,4*1.94 

D  i 3* 1.0, 2* 1.24,1 .45,1.21 .4*2.06,  13*1.0.2*1.25,1.45,1.24,4*2.17 

E  13*1.0,2*1.26,1.45,1.26,4*2.32, 

F  21*1.00, 

G  11-1. 0,4*1. 11, 2*1. 03, 4*1. 17,  11*1.0,4*1.18,2*1.07,4*1.37, 

H  11*1. 0,4*1. 20. 2*1. 10, 4*1. 53,  11*1.0,4*1.21,2*1.13,4*1.67, 

I  11*1.0,4*1.22.2*1.17,4*1.82,  11-1.0,4*1.23,2*1.19,4*1.94, 

0  11*1 .0,4-1 .22,2*1 .21 ,4-2.06,  11*1.0,4*1.25,2*1.24,4*2.17, 

<  11*1  .0,4*1 .26.2*1  .'26,4-2.32/ 


DATA  CM/ 

4000.,  20400.,  35100. 

,  48830.,  61660., 

73590. 

.  34590., 

A  94620. 

,  103750.,  111980./ 

DATA  FCHDCQ/  1.00,  1.24,  1.35, 

1.43, 

1.50,  1.57 

,  1.63, 

1.69, 

A  1.73, 

7-1.77/ 

DATA  FCHDHC/  1.00,  1.12.  1.18, 

1.22, 

1.25,  1.28 

1-30. 

1.33, 

A  1.36, 

7-1.38/ 

DATA  FCHDNO/  1.00,  1.11.  l.ie, 

1.20, 

1.22,  1.23 

,  1.24, 

1.25, 

A  1.27. 

7*1.28/ 

DATA  CMH/ 

4000.,  22360..  39140 

.,  54940.,  69900. 

,  82900 

.  ,  95300. , 

A  105300 

.,  116700.,  125700., 

133650 

.,  139150., 

144650 

.  ,  150150. 

B  155550 

..  161150./ 

C  USEPA  REGISTRATION  (MID-YEAR)  AND 

ANNUAL 

TRAVEL 

DATA  REG  I 

3/  .078,  .115.  ,110, 

.098, 

.106,  .106, 

.068, 

.078, 

A  .063, 

.041.  .035,  .021,  .060,  0. 

,  0 . ,  0. , 

B 

.079,  .116,  .110, 

.098, 

.106,  .105, 

.088, 

.078, 

C  .063, 

.041.  .035,  .021,  .060.  0. 

,  0. ,  0. . 

0 

.071,  .106,  .087, 

.081  . 

.084.  .076, 

.065, 

.055, 

E  .047, 

.035.  .037,  .033,  .223,  0. 

,  0. ,  0- , 

F 

.071,  .106.  .087, 

.081  . 

.094,  .076, 

.065, 

.055, 

G  .047, 

.035.  .037,  .033,  .223.  0. 

,  0. ,  0- . 

H 

.071,  .106,  .087, 

.081  , 

.084,  .076, 

.065, 

.055, 

i  .047, 

.035.  .037.  .033.  .22 

3,  0. 

.  0. ,  0. . 

0 

.071,  .106.  .087, 

■  0S1  . 

.084,  .076, 

.065  , 

.055, 

K  .047. 

.025.  .037,  .033.  .22 

3.  0. 

,  0. ,  0. / 

EAT 

rS  .'AM  1 

/ 1 3  900 . , 1 5000 . 

, 14000. 

, 12100. 

,  12200. . 

1 1 300 . 

.  10300. 

9400. , 

A 

2  3  00. 

,  7600.,  6700. 

,  6  700. 

.  6700. 

,  6700.. 

6700. 

.  6700. 

B 

13900. ,15000. 

,  14000. 

, 13100. 

.  12200. . 

11300. 

,  10300. 

9400. , 

C 

3500. 

,  “500.,  6700. 

.  6700. 

.  6700. 

,  6700. 

6700. 

,  6700. 

D 

1“200. .17200. 

, 15800. 

, 15800. 

,  1  3000 . 

1 3000 . 

, l 1000. 

1 1000. . 

JT 

3000. 

,  2000.,  S500. 

,  5500. 

.  5500. 

,  5500. 

5500. 

.  5  500. 

e 

1 ~200 . , 17200. 

. 15800. 

, 15800. 

,  1  3000 . 

1 2000 . 

.  1  1000. 

1  1000.  , 

G 

9000 . 

,  2000.,  5500. 

.  5500. 

,  3500. 

,  5500. 

5500. 

,  5  500. 

H 

1 7200. , 17200. 

.15800. 

, 15300. 

,  1  3000 . 

13000. 

, 1 1000. 

1 1000. , 

I 

9000. 

,  5000.,  550S. 

,  5500. 

,  5500. 

,  5500. 

5500. 

,  5500. 

0  17200. . 17200. ,15800. .15800. , 13000. ,13000. ,11000. ,11000. , 

<  9000..  3000.,  5500.,  5500.,  5500.,  5500.,  5500.,  5500./ 

DATA  PAA7/  .33, 15*. 30.  .38, 15*. 30,  .37, 15". 30,  .37, 15*. 30, 

A  .37, 15". 30.  .37, 15*. 30/ 

DATA  VFCTR/  .321,  .100,  .045,  .018,  .010,  .006/ 

DATA  Y  / 4HM1 0- , 4HEN0-  / 

DATA  IAU~0. ILDT, IDIESL , I0ET, ICRNK, ICLDST, 1WTFTR, IEVAP .RTROFT, 

1  IT1ME, SPEED  /  7*1,2,2*0,19.6  / 

IZZ*  1 

*******  INITIALIZE  DATA  ARRAYS  «*■»••*«*•*»»-»•*••***•»****»**••****<•* 

I F  <  IAUTO . EQ .0 )G0  TO  101 
DO  I  H- 1,31 

SYE-CO(l.M)  *  FEXCC<  M , 1 , IAREA  > 

3 YE  ~  HC ( 1 , M .  *  FEXHC1M, 1 , IAREA) 

BYEfNOll.M;  =  FEXNOI H , 1 , IAREA > 

1  CONTINUE 
GO  TO  2 

101  R£AD(5,210><  SYEFCO< 1 ,M),M-1 .31 > 

?.EAD(  5,210)1  3YEFHC(  1 ,M> ,M-1 ,31 > 

READ l 5,210)1 SYEFNO< 1 . M > ,M-1 , 31 ) 

2  IF ( ILDT.EQ.0)GO  TO  102 
DC  3  M-l ,31 

SYE?CO<2,M)  -  FEXCO<M.2, IAREA) 

3YEFHC(2.M)  -  FEXHC(M,2,  lAP.EA) 

3 YE  ?NQ( 2 , M )  -  FEXNO<M,2. IAREA) 

3  CCN'' i NUE 
GO  ”0  4 

102  READ! 5. 2 10 M EVEFCOI 2 ,M ) ,M*1 .31 ) 

READ( 5,210)1 BYEFHC1 2,M ) ,M*1 ,31  ) 

READ! 5,210)1 BYEFNO<  2.M) ,  rt*  1 ,31 ) 

4  IH-IHDV+1 

GO  T0< 103,5.7 ) . IH 

5  DO  6  M- 1,31 
DO  5  0*3,5 

SYErCO<J,M)  -  FEXC0IM.3, IAREA) 

3VEF HC( J ,M  >  *  FEXHCIM.3, IAREA) 

5  v E ~ N0<  J , M  )  -  FEXNO<  M , 3 , IAREA  ) 

6  CONTINUE 
GO  TO  9 

7  DO  3  M-l ,31 
DC  8  0*3,5 

SVE-CO<O.M)  *  HDVCOIM, 0-2, IAREA) 

3vErNO( 0 ,M  >  «  HDVNOI M . 0-2 , IAREA ) 

3 Y EF HC <  0 , M  i  -  H0VHC< M ,0-2 , IAREA  ) 

8  CONTINUE 
GO  TO  9 

103  DO  104  0*3,5 

READ( 5 , 210 )( BYEFC0(0,M  )  ,M-i ,31  ) 

READ (5,210)(EYEFHC(O,M>,M*1,31 > 

READ( 5 , 210  X 5 YE F NO ( 0 , M  ) , M* 1 , 31  > 

104  CONTINUE 

9  I F ( 1DIECL .EQ.0JGO  TO  106 
CO  105  M  =  1 .31 

3YE.-  C01  6  ,M  /  «  F  D  £  F  c  C 1  M  > 

E  YEFHCl 6.M  *  FDEFHC1 M 1 

3 YE F NO! t , M  <  *  FDEFNO' M  ) 

105  C0N~INUE 
GO  “0  10? 

106  READ1  5.210X  SYEFCOI  6,M)  .M*l  ,31  ) 
aEADC 5, 21 J > I S YEFHCl 6.M ) .M*l .31  ) 

~E.O(  5,210; <  BYEFNO(6,M;,M*l ,31  ) 

....  ,:*-:det-i 

:r,D»MAX0<  IAREA-  1  ,  1  ) 


c 

c 


SO  TO! 118, 103 , 115), IDT 
10c  DC  ill  J-1,2 
20  110  N-l, 10 
CO  109  M-l .21 

DETOOIU,M,N)«FDETCO<M,N.IAD> 

DETHCI  J ,M,N (-FDETHCIM.N, IAD  > 
D£TNO<J,M,N)-FDETNO<M,N,IAD) 

109  CONTINUE 

DO  110  M-22,31 

DETCO( 0 ,M,N  >«FOETCO<  21 ,N, IAD  > 

D£THC( 0  ,  M ,  N )*FOETHC I 21 , N , 1 AD > 

DSTNOIO ,  M.N")-FDETNOI 21.N, I AD  > 

110  CONTINUE 

CO  111  N-ll.16 
DO  ill  M» 1 . 3 1 

DETCOI J,M,N)«OETCO< J,M,I0> 

CETHC< J ,M,N >-DETHC< J ,H, 10) 

DETNOI J,M,N)-OETNQIJ,M, 10) 

111  CONTINUE 

DO  112  J-3,6 
DO  112  N- 1 , i 6 
DO  112  M- 1 . 3 1 
DETCO( J ,M,N  >-l .0 
OETHCI  J , M , N  )- 1  .0 
D  £  T  ?!  0  <  J.M.Nj-1.0 

112  CONTINUE 

IF ( I AREA. HE . 3  >  GO  TO  120 

DO  113  0-3.5 

DO  113  M-l 5. 31 

DO  113  N-l  ,  16 

DETCO<  0 , M , N  J  -  FCHOCOIN) 

DETHC(O.M.N)  -  FCHDHCIN) 

D£TNO<J.M,N)  -  FCHDNO(N) 

113  CONTINUE 
115  CO  T0  120 

MILEAGE  DEFENDANT  DETERIORATION  FACTORS  WILL  BE 
INITIALIZED  AFTER  REGISTRATION  DATA  IS  INPUT 
H3  DO  119  0-1. S 
DO  119  M-l ,31 

READ ( 5 , 230 )  ( DETCO< 0 ,M . N  ) . N-l , 1 6 ) 

READ( 5 , 230  >  IDETHCI J,M,N>,N-1,16> 

READ  .'5. 230:'  (  DETNO(  J , M , N  > , N  -  1  ,  16  > 

113  CONTINUE 

120  TF( ICRMK.EQ-0'GO  TO  122 
DO  121  M-l, 31 

C°E"( l.M)  -  FCRNKIM, 1 , IAD > 

CREF(2.M;  -  FCRNKIM. 1 , IAD  ) 

C “ S F ( 3 , M )  =  FCRNKIM, 2, IAD  ) 

CRE-(4,M)  -  FCRNKI M, 2 . IAD  ) 

C  R  E  F ( 5 , M  )  -  FCRNKIM, 2. IAD) 

C  ?.  E  r  I  6  .  M  )  =  0. 

121  CONTINUE 
CO  "0  124 

122  DO  i 23  0=1.6 

:’EAD<  5,210  ;ICFEF<  0  ,M>  ,M»1 ,31  ) 

122  CONTINUE 

124  1EV-IEVAP+: 

CO  ~C( 130, 125, 125  ) ,  IEV 

125  DC  126  M-i ,21 

E^D-I  1 ,M,2)  -  FEVAPIM. 1 , IAD  ) 

E  '<  E  r  I  2  ,  M ,  2  .  »  FEVAPIM.  1  .  IAD  ) 
tVEF(3,M,2.>  -  FEVAPIM, 2,  IAD  ) 

E v E? I  4 . M , 2  =  FEVAPIM. 2, 1 AO  ) 

E  v  E  r  I  5  ,  M  ,  2  =  FEVAPIM.  2,  IAD  ) 


124 


EVEF (  6  ,  M ,  2  >  «  0. 

125  CONTINUE 

127  .10  TO  (  501 ,  502 , 503  ) ,  IAREA 

501  00  511  M-l ,31 
DO  511  K-l  ,3.2 

EVEr  <  1  ,M,K>  -  SEVKM.K,  1  > 

E VEF ( 2 , M , K  )  -  SEVKM.K, 1  > 

EVEF  (  3  ,  M ,  K  )  -  SEVKM.K, 2> 

EVEr  (  4  ,  M ,  .<  )  -  SEVKM.K, 2> 

EVEr ( 5 ,M, K)  -  St VI <  M , K , 2  > 

EVE" ( 6 , M , K )  *  0. 

511  CONTINUE 
00  "0  135 

502  DO  ?  12  M-l ,31 
00  512  K-l ,3,2 

EVEF ( 1 , M , K  )  -  SEV2 ( M , K , 1 > 

EVEF ( 2 , M , K  )  -  S £ V 2 <  M , K , 1  ) 

EVEF <  4 ,M , K  )  -  SE V2( M , K , 2  > 

EVEF ( 3 , M , K  )  -  SEV2<  M , K , 2  > 

E V£" ( 6 ,M , K )  -  0. 

EVEF  <  5 ,M, K  <  -  SEV2<  M , K , 2  > 

512  CONTINUE 
00  TO  135 

503  00  513  M-l, 3 1 
DO  513  K-i ,3.2 

EVEF ( 1 ,M,K  )  -  3EV3( M , K, 1  ) 

EVEr <2,M,K>  -  SEV31M.K, 1 > 

EVEr  <  3 ,M,K  )  -  SEV3<  M , K , 2  > 

EVEF  (  #.,h,K)  -  SEV3(  M ,  K  ,  2  > 

E VS F  <  5 , M , K  ■  -  SEV3( M , K , 2  > 

E  V E F ( 6 , M , K  )  -  0. 

513  CON" I NUE 
GO  "0  133 

130  DO  131  J-l ,6 
DO  131  K-l, 3 

READ! 5.210.1 EVEFI J ,M, K > ,M- l , 3 1 > 

131  CON" I NUE 

135  I r \  :CLD5T.EQ.0>GO  TO  140 
DO  139  M-l ,31 

RC3C0U.M)  »  FFCSCOl  M ,  IAREA  > 
RCSHCIl.M)  -  c FCSHC( M , IAREA ) 
P.CSCOl  2  ,  M  )  -  FFCSCOl  M  ,  IAREA  > 

RCCHCI 2 , M )  -  FFCSHCIM, IAREA) 

RC3C0(  6 , M  )  -  B. 

SCSHC16.M)  «  Id. 

I  F ( IHDV.EQ.2  >G0  TO  137 

DO  136  0-3,5 

RCSCO( 0 , M  )  -  HDCSCOI 1  ) 

RCS.-'Cl  J  ,  M  )  *  HDCSHCl  1  ) 

136  CONTINUE 
GO  "0  139 

137  CO  .38  0=3,5 
FCSCOfJ.M;  =  HDCSCO(O-I) 

FCSrCl 0 ,M>  =  HDCSHCl 0-1  ) 

138  COiriNUE 
129  CCr-n NUE 

CD  T0  142 
140  1  _■  .41  0*1,6 

F IA-  I 5,210)1  PC SCO ( 0 ,M ) ,M-1 , 31  ) 
FEAOl 5,210/1 RCSHCl J,M),M-1 ,31 ) 
Ml  -ON" I  NUE 

142  IF' 1AAT.ME .0)60  TO  1247 
:*Er,Rl-TEAR-: 

.  “  E.-.R2- YEAr.-2 


Copy  avnil  p1  '  -  *■ 

permit  lully  ‘ 
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W*:7E(o, 11 97) YEAR, I  YEAR  1 , 1 YEAR2 , ( TRETIT( IQ >, IQ- 1,16) 

00  143  0-1 ,6 

READ  <5, 205)  00,OPT!00),!RFGiS!N,00),N-l,16> 

I F ( 0PT<  0 J ) . EQ . 0 )  WRITE!  6,1198)  00 ,OPT< 00 ) . ( RFGIS! N, JJ  )  ,N-1 , 16 > 
IF (OPT! 00 >.EQ. 1 )  WRITE!  6, 1198)  JO .OPT! JO > , ( REGIS! N ,00  * , N-l , 16 > 

143  CONTINUE 
WRITE! 6. 1196) 

DO  1246  1-1.6 

IF  !  OPT! I ).EQ. 1 >  GO  TO  1244 
00  1243  0-1,16 

1243  RAGIS!0 . i >»RFGIS(0, 1  ) 

GO  “0  1246 

1244  DC  1245  0-1.16 

1243  PAG. S(0 , I  )-REGIS<0,  I  > 

1246  CCN“1 HUE 
GO  “0  144 

1247  00  1248  1-1.6 
DO  1248  J-1,16 

1248  r.AG S  (  0 , 1  )  - P.E G I  S !  J  ,  I  ) 

144  DO  145  0-1,5 
SOM  0  >-0.0 

DO  145  N-l  .  16 

“"'AVI  (  0  ,  N  > -RAG IS!  N ,  J  )*AAT(  N ,  J  ) 

SUM!  0  l-SUM!  J  >-rPTRVL(0  .N> 

145  CONTINUE 

DO  146  0-1.6 
DO  146  N-l,  16 

P“Rv'L(0,N)»PTRVL(0,N>/SUM(  J  > 

146  CONTINUE 

IWTFTR . NE .0 )G0  TO  147 
READ (5,210) ( WFCTR! 0 ) ,0-1,6) 

147  CONTINUE 

IF! IDET.NE.2)  GO  TO  199 
DO  160  0-1,2 
XM1LES-0.0 
DO  160  N-l  ,  16 
4MHES-XMILES+AAT!  N,0  ) 

XM  »  XMILES  -  AAT! N , J )•( 1 . -PAAT! N  ,0  )  ) 

DO  151  Nl-1.10 

IF!  :M.LE.CM(N1 ))  GO  TO  154 

151  CONTINUE 

DO  152  M-l ,2! 

DETCO(0,M,N;  -  FDETCC! M, 10, IAD  ) 

DET-,C(0,M,N)  -  FOETHC!  M.  10,  IAD  ) 

OETNO! 0 , M , N  )  -  FOETNQ! M , 10 , I AD  ) 

152  CONTINUE 

CO  i S3  M-22.31 

DETCO! 0 , M, N  )  »  OETCO! 0 , 2 1 , N  ) 

DETHC! 0 ,M, N  )  »  DETHC! 0 , 2 1 , N  > 

DET"O!0,M.N>  -  OETNO! 0,21 , N  ) 

IS 2  CONTINUE 
CO  "0  160 

154  :  F .  :  i  . NE  .  1  'GO  TO  156 
DO  :55  M-l. 31 
.-'MO!  J  )  -  1.0 
11“  -C'.O.M.N'  =  1.0 
DET.  0(0  ,M,iS  1  =  1  .0 
123  C  DT” I NUE 
DO  ~Q  160 
156  DO  157  M-l ,21 

DETCOfJ.M.N;  =  ( FDETCO! M , N 1 , IAD ) -F DETCO! M, N 1 -1 , IAD  )  )/ 
i CM! N1  )-CM( Nl-1 >  >•( XM-CM! Nl-i  )  )  +  FDETCO! M , N 1 - 1 . IAD ) 

DETHC ! 0 , M , N  >  =  i F DETHC ( M . N 1 , I  AD  ) -FDETHC ( M , N 1 -  1 . I AD  1  )  / 

> CM! Ni  >-CM( Nl-1 ))-( XM-CM! Nl-1  ) /  +  F DETHC ( M , N 1 -  1 , IAD ) 
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o  u  o 


1 


CETNO!  J . M, N )  -  ( FDETNOI M , N 1 , IAD )-FDETNO(  M, Nl-1, I AD))/ 

.  \ CM! N1 )-CM( Nl-1 ) )•( XM-CM!  Nl-i ) )  ♦  FDETNO! M, N1 - 1 , IAD > 

157  CONTINUE 

DC  158  M-22,31 

D£TCO<J,M,N)  «  DETCO<  J  ,  2 1  ,  N  ) 

2E7HC! J ,M,N >  -  DETHC<,1,21,N> 

D£TNO<  0 ,M, N  >  -  DETNO<  J  ,  2 1  ,  N  ) 

158  CON“I NUE 

160  CONTINUE 

DO  161  0*3.6 
DC  161  M-1,31 
DO  151  N-1,16 
OETCO! J.M.N)  -  1.0 
DE“-'C  (  0  ,M  ,  N  >  *  1.0 
D;T''0<  0  ,M.N  )  *  1.0 

161  CONTINUE 

IM IAREA. NE . 3  /  GO  TO  199 
DC  170  J-3,5 

xmx.es  -  0.0 

DO  170  N-1,16 

XMILES  -  XMILE3  +  AAT(N.J) 

XM  -  XMILES  -  AAT ( H , J )“( 1 . -PAAT( N , 0  > ) 

DO  162  Nl-1. 16 
IF  MM.LE.CMH(Nl))  GO  TO  164 
152  CONTINUE 

DO  163  M-16.31 
DETCO(J,M,N)  -  FCHDCO! 1 6  ) 

DE“HC<  J  ,M,.N  >  »  FCHDHC!  1  6  ) 

DE~'IO<  0  .  M  ,  N  )  -  FCHONO(is) 

163  CONI'  I  NUE 
GO  TO  170 

164  IFtM.EQ.l  >  GO  TO  170 
DO  165  M-16.31 

D-TCOIJ.M.N!  -  ( FCHDCO! N1 )-FCHDCO(Nl-l ) )/(CMH( N1 >-CMH( Nl-1 ) ) 
*  (  XM-CMn  'Nl-1))  ♦  FCHDC0<N1-1> 

DETHC! 0 , M , N  )  -  ( FCHDHC ( N1 )-FCHDHC( N 1  —  1 ) )/{ CMH( N1 >-CMH( Nl-1 ) ) 
"< XM-CMh< Nl-l)  )  +  FCHOHC (Nl-1) 

DETNO! J.M.N)  -  (FCHONO(N1 >-FCHDNO( Nl-1 > >/(CMH<Nl >-CMH(Nl-l >  ) 
•< XM-CMn! Nl-1 >  )  ♦  FCHDNO(Ni-l) 

160  CON" 1 NUE 
170  CONTINUE 
139  I F !  IZZ)  198,198,10 
C 

C**»»""""  WRITE  OUT  BASIC  DATA  SET  •  —  *  —  —  *  —  «  —  — 

198  WRITE! 6, 1000,  IAREA, I AUTO, ILDT, IHDV, IDIESL , IDET, ICRNK, I EVAP , 
A  ICLDST,  IAAT,  IWTFTP, 

1000  FORMAT! lrtl,  -BASIC  OPTIONS  SELECTED  FOR  THIS  RUN-  /  1H  ,  5X, 


A 

•IAREA  --. 

12. 

2X  ,  - I AUTO 

*  *  t 

12, 

2X, 

-ILDT  --, 

12, 

2X 

B 

-IHDV 

12 , 

2X. -IDIESL 

12, 

2X, 

-IDET 

12, 

2X 

C 

-ICRNK  -*, 

I  2 . 

2X,  - 1 EVAP 

■  «  f 

12, 

2X, 

-ICLDST  -* 

12, 

2X 

D 

-IAAT  --. 

12, 

2X.-IWTFTR 

«• 

12) 

C«--»-*"»  READ  YEARLY  CALCULATION  OPTION  CARD  * 

10  CONTINUE 

E. nTRY  TFEN'R 

£  NT,-  Y  T5E4“R  ; CLDSTR , EXEMI  .CSCO.CSHC,  EVAP  .CRANK  ) 
CALCUL A“E  EMISSION  FACTORS  -  —  —  «  —  —  —  * 
SPEED  CORREC"IO*. 

S-CSC  *  12.0  *  << SPEED >-*< -0. S45 > > 

-r( SPEED. £0.19.6)  SPDCO  -  1.0 
SPDHC  -  7.0  *  (< SPEED >--! -0. 649  )  ) 

Ir' SPEED. EC. IS. 6)  SPDHC  -  1.0 
D5D,;0  -  I  . *  !SPEED-19.6)*0. 01262 
.  S  11  >7-1.5 

.:c  o  > -sp oco 
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S-C J  )-SPDHC 
CNCv  J J-SPDNO 

11  CON"I NUE 
SCO'  S>-1  .0 
3HC . 5  )-l  .  J 
S?IO  6  >-l  .0 

C  INITIALIZE  YEARLY  EMISSION  FACTORS 
DO  12  I  -  1,3! 

DC  12  K  «  1,6 
v'EFCOIK.I  )  -  B YEFCO<  K ,  I  ' 

YEF-JCl  K ,  I  )  -  3YEFHC(  K.  I  > 

YEF!0<K,  I  ;  -  EiYEFNOf  K,  I  ) 

12  CONTINUE 

IF  <  0.TROFT>21 ,25,23 

21  DC  22  J*i  .  6 

F.EAD (  5 , 2 1.0  ;  '■  RTROCO<  J ,M  > , M- l , 3  l  ! 

READ!  5,210 )( RTRQHCl J ,M),M-1 ,31  ) 

P.EAL(5,210/<R7RONO(J,M), M-l , 3 1  ) 

22  CONTINUE 

23  DO  24  M- 1 ,31 
DO  24  0-1,6 

‘.’£FCO(  0  ,M  )-YEFCO<  0  ,M  >*(  1 . -RTROCOl J , M >  > 

YEFNC( J , M  )«Y£FHC( 0 ,M )"< 1 , -RTROHCt 0 , M )) 

YEFNO( J,M)-YEFNO< J,M>"< 1 , -RTRONO( 0 , M  )  ) 

24  CON" I NUE 

25  DO  26  J-l , S 
CSCO<  J  >«0.0 
CSHC( J )=0.0 

2 5  CON" I NUE 

30  IF(CLDSTR.ECI.0  )SO  TO  40 
DO  33  M-l ,31 

DO  31  J-l ,6 

VEFCSC<J,M  .-YEFCO(O.M>*7.5*RCSCO(J,M> 
Y£rC$H<0,M;»YEFHC(0,M)*7.5*RCSHC(J,M) 

31  CO.N'INUE 

DO  32  0-1,2 

YEFCO<0,M)»vs-CO<0,M;«( 1 .-.43«RCSCO(0,M> > 

YEFHC(0,M>-YSr HC(0,M)*< 1 . - . 43*RCSHCC 0 , M >  > 

32  CONTINUE 

33  CCN"INUE 

DO  35  J-l ,5 
K«Y EAR- l 953*171 ME 
DO  35  N-l  ,  16 
<=MAX0( K- 1 , 2  > 

C2CO( J )-CSCO( J l+PTRVL (  J,N)*YEFCSC(J,K)*DETCO(JfK,N) 

C3HC ( J >«CSHC< 0 >  +  PTRVL<  0 .N  >*YEFCSH<  J ,K)*DETHC(0 ,K,N  > 

35  CONTINUE 

40  30  ^1  J-l ,6 
DO  *1  L  *  1  ,  3 
EXEMKJ.L  '=0.0 

41  CONTINUE 

DC  -2  0  =  1,6 
r,  =  v  EAR  -  1  953-  I  TIME 
-2  n-i  .6 
•  =  «~>:0<  y.-\  .  :  •< 

M-'KJ.l  -EXEMI  (  J  ,  1  )*YEFCOf  J  ,<  )"DETCO<  J  ,K,N  >*SCO<  J  )*PTRVL(0  ,N  ) 
E,.Ei"l(  0 ,2  )  =  EX£MI(  J  ,  2  >*  YEFHCt  J  ,  K  )  *0ETHC<  J  ,  K ,  N  >*SHC<  J  )*PTRVL(0  ,  N  ) 
EXE.-': !  J  .3  .«E::EMI<  J  ,3  >  +  YErNO<  J  ,  K  )  *DtTNO<  J  ,  K  ,  N  >-SNO(  J  )  *?TRVL  (  J  .  N  ) 

42  co::T  I  NUE 

DC  - i  j  =  ;  ,£ 

-  - 1-  i  &  (  0  *  =  J  .  L* 

DC  51  I « I  .  3 
E  ( J .  i  :=_  .0 

::.":nue 
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noon 


DC  62  0-1 .6 
<-YtAR- 1953+ITIME 
;c  62  N-1,16 
K«M^X0!K-1 , 1 > 

CRAMK(0  )«C?AN!<!0  >+CREF!0,K)*PTRVL!0,N> 

DO  62  1-1,3 

EVA?  <0,1 >-£VAP< 0 , I )+EVEF(0,K,I  )*PTRVL! 0 , N  ) 
62  CONTINUE 
WEXCO-0.0 
WEXHC-0.0 
WEXNO-0.0 
WCSCO-0.0 
WCSHC-0.0 
WCR::K»0.0 
DO  31  1-1,3 
WEVAP < I  >«0.0 

81  C0N-1NUE 

DO  32  0-1,6 

VEXCO-WSXCO+EXEMI!  0,1 )*WFCTR( J > 
WEXMC-WEXHC+EXEhl < 0 , 2 )*WFCTR< J > 
WExNO-WEXNO+EXEMI <0,3 )"WFCTR< 0  ) 
WCSCO-WCSCO+CSCO(0  )  *WFCTR( 0  > 
VCS.-C-WCSHC+CSHC!  0  )  *WFCTR<0> 

WC R " K-WC R  N  ^  ■‘■C  RAN  K  <  0  )  "WFCTR!  0  ) 

DO  £2  1-1.3 

WEVAP ( I ) -WEVAP ( I )+EVAP (0,1 >*WFCTR!0) 

C 

82  CONTINUE 
IF  < 1ZZ)  96,96,999 


PRINT  TABLE  OF  EMISSION  FACTORS  FOR  YEAR  "YEAR* 

36  WRITE <6,1 100 1TITLE 
96  Iv-ITIME+l 

WRITER  6,1 105) YEAR, Y< IY  > , SPEED , < 0 .0-1 , 6 ) 

I F  (  CL DSTR  .  EQ .0  >  V/R I TE  <  6 , 1 1 10  ) 

if<  :ldstr.ne.0)  write! 6 , 1 1 1 1  > 

WRITE<6,1120)<EXEMI(O,1  )  ,0-1 ,6  )  .WEXCO 
WRIrE<6, 1130X  EXEMI<0,2  • . 0* 1 , 6 ) , WEXHC 
WRITE!  6, 1 140X  EXEMK0.3  >  ,0-1 ,6  )  .WEXNO 

IF  sCLDSTR  .NE.  0)  WRITE  <  6 , 1 1 60 )CSCO , WCSCO  ,CSHC,VCSHC 
WR:”E<6,1U2) 

WP !TE< 6, 1 1 aa >  ( EVAP< 0 , 1  )  ,0-1 ,6  ) ,  WEVAP(l) 

WPI-E< 6 , 11  AS >  <EW  '0.2 >,0-1,6),  WEVAP<2) 

WP I TE  <  6 , 1 1  A3  )  (EVAP(0,3>,0-1,6>,  WEVAP<3) 

WRITE <6, 11 52) 

WRI7E<6, 1 154 >  <CRAN!«0  >  ,0-1 ,6  )  ,  WCRNK 
IF  RTROFT  .NE.  0)  WRITE<6, 1150) 

99  RETURN 
C 

200  F ORMAT ( 4  1 6 , F  6 . 2 ) 

2 ml  r CF.MAT (2(  I2.2X),16F4.4) 

210  •  T«.MAT(  9F8  ,Ji>  > 

220  r:R.’AT<  10A3  > 

226  -C c  "AT (  1113) 

230  FORMAT! 1SF5.0) 

C 1  . .20  FORMAT <  1  n  1  ,  5X  .  10A3  ) 

Cl  106  FORMAT! 1H  ,15X. "MOTOR  VEHICLE  EMISSION  FACTORS  FOR  *, 
110S  FORMAT! 1H0. 16X. "MOTOR  VEHICLE  EMISSION  FACTORS  FOR  ", 

A  IA, IX. AJ, "YEAR  AT  A  SPEED  OF  ",  F5.2,"  MPH*/1H  . 20X 

3  "CLASS” .17,518) 

l’!0  FORMAT! 1H*.  80X , "WE IGHTED*/ I H  , 1 2X , *E XHAUST  EMISSIONS  - 
A  'GRAMS, VEHICLE-MILE" ) 

II,.  FORMAT  (  1  H*  ,  60X, "WEIGHTED  */lh'  ,  1  2X  ,  "EXHAUST  EMISSIONS  - 
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A  -GRAMS/VEH ICLE-MILE  --  HOT  OPERATING  ONLY*) 
li 20  FORMAT! 1H  .  8X ,  -CARBON  MONOXIDE*,  3X,  6F8.2,  FI 4. 2) 

1 1  Si'  FORMAT (  1 H  ,  8X,  -HYDROCARBONS  *,  3X,  6F8.2,  F14.2) 

114?  FORMAT! 1H  ,  8X,  -NITROGEN  OXIDES-,  3X,  6F8.2,  F14.2) 

1142  FORMAT! 1H  , 12X , -EVAPORATIVE  HYDROCARBON  EMISSIONS-) 


1144 

FORMAT! 1H  ,  SX, 

-DIURNAL 

( GRAMS  >-, 

2X, 

6F8.2, 

F14.2) 

1146 

FORMAT! 1H  ,  8X, 

-RUNNING 

(  GMS/MI >*, 

2X , 

6F8.2, 

F14.2) 

1148 

FORMAT! 1H  ,  8X, 

-HOT  SOAK 

! GRAMS)*, 

2X , 

6F8.2, 

F14.2) 

1150  FORMAT!  1H  ,5X,-N0TE  RETROFIT  INCLUDED-) 

1152  FORMAT!  1H  ,12X,  -CRANKCASE  HYDROCARBON  EMISSIONS  --  GRAMS/VEHICLE- 

.MILE*) 

1154  FORMAT ( 1 H  ,  26X,  6F8.2,  F14.2) 

1160  FORMAT! IH  ,  12X,  -COLO  START  EMISSIONS  —  GRAMS-/ 

A  1  H  ,  8X .  "CARBON  MONOXIDE-,  3X ,  6F8.2,  F14.2/ 

B  1H  ,  8X,  "HYDROCARBONS  *,  3X,  6F8.2,  F14.2) 

999  RETURN 

1196  FORMAT! 1 H0 . 5X , 30HOPT I  ON  0  IS  USER  SUPPLIED  DATA  /  5X.24HOPTION  1  I 
.S  DEFAULT  DATA  > 

1197  FORMAT! 1H0, 13X,70H DISTRIBUTION  OF  VEHICLE  CLASSES  ! BREAKDOWN  BY  AG 

IE.  X-  THROUGH  15  YEARS), 6H,  0=*  .14, 5H,  1-  ,I4,5H,  2-  ,  1 4 , 3!  1 X  ,  1 H  .  ) 

2/1H0.5HCLAS5.8H  OPTION , 2X . 1 6! 1 H< , 1 2 , 1 H  ) , 3X  )  > 

1  1  9  S  FORMAT!  irl  ,  1 4 , 4X  ,  1 3 , 4X  .  1 5!  F 4 . 3 , 3X  >  ) 

END 
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SUBROUTINE  ASPTIV 
COMMON  /POINTS/ 

1  M , MERGES. NMAX , NMAXE , 

2  LSRCES , NTOT 
COMMON  /ANNME7 / 

1  TBAR , ADD , P , PA , 

2  WS2AR . DTBAR , AMDBAR 
COMMON  /SPACE/ 

1  SORCE(2100),SOREM<8,250> 

REAL  LUPM-'-. 

COMMON  /EMFDB I / 

1  F  D£MFC( 6 , 4 , 50 ' , ?LNAME(  S),PPEMFC(22,6), EMFC IN<  5,6), 

2  TFEMFC( 6  > , LUEMFCi 9 , 6  > ,ALPHA( 7 ) , BETA( 7  ) , 

3  FLDE.'i'J(  7  / ,  FLNAME  <  7  ) ,  AF  EMFC  t  2 , 6 , 6  ) , ATE MFC (  2,6,6), 

4  CSEMFCC  6,6) , AFCSEM( 6 , o  > , AFSOAK , ATSOAK , 

5  AFER7H  , ATBRTH  ,FLTFCT(  7  )  ,  F  I  )<FCT(  7  >. 

a  WR.<FCT(  7 ) 

COMMON  /DEFALT/ 

1  NPLT3 . ITAPE ,ACLNDY ,ACLNDZ, 

2  TCVSDF,TCH8DF,TCHODF,TCDYDF, 

3  TCDZDF  ,  RUDSDF  ,  RUTSDF  ,  PMJVSDF  , 

4  R JHEDF , RUHODF , RUDYDr , RUDZOF , 

5  TFDZD* ,TFQDF .TFHBDF.TFHODF , 

6  EOCKDV ,EGCKDZ,ACMLPL ,ARDSDZ, 

7  ATDDDY,ATDSDZ,7CDSDF.TCTSDF, 

S  FPDFLT,TDOFLT,RFDFLT,SFDFLT, 

3  rFOr aT.TFDF LT.TFDYDF, MINUS < 6) 

COMMON  /~OT  2/ 

1  TOTEMt  20,6 ) ,TOTEVP< 10 > , EMI SS( 8 , 1 5 , 5  ) 

DIMENSION  TIME! 4 ) , IDPL( 5  )  ,CNTRL( 6  )  ,FCTR< 6  >,TVP(7) 

DIMENSION  A3?TS< 11 , 150) 

DIMENSION  I  FUN TP ( 2,22 ) , I FULTP  <  22 > , IHTINI 22  > , IFULUSI 22 ) 

DIMENSION  TEMR ( 6  > 

EQUIVALENCE  (ASPTSI 1 >,SORC£< 1  )  ) 

OATAf  <  IF'JN7?<  i  ,  J  )  ,  1  =  1  .2  )  ,0  =  1 ,22  J/10H  UTILITY,  ,  10HINDUSTRY  ,  10HCO 
1MERCIAL  ,  10M  INDUSTRY 

1 10K  SPREADER. 10H  STOKER  , 10H  HAND- . 10HF I  RED  , 10HPULVERI 

2Z .  .10HDRY  BOTTOM, 10H  OVERFEED, 10H  STOKERS  , 10H  OVERFEED, 10H  ST 
20KERS 

2  10rt  HAND- , 10HF I  RED  , 10H  POWER  , 10HPLANT  ,  10HCOMME 

2R:CAL,10H  INDUSTRY  ,  10H  RESI,10HDUAL 

3  10H  DIST:  .  10H(.LA7E  ,  10H  DOME,10HSTIC  ,  10H  I 

3NDUS, 10HTRIA.  ,  10H  COMME . 10HRCIAL 

4  10  A  DOME , 10HSTIC  , I0H I  NOUS  PROC.10H  (BUTANE)  , 10H I NDUS 

4 3 ROC , 10H  (PROPANE),  10H  COMM  BOIL.10H  (BUTANE) 

5 10HDOMES  BOI..10H  (BUTANE)  , 10H  COMM  BOIL,10H  ( PROPANE  > , 10HDCMES  B 
501'..  10H  (PROPANE)  / 

DATA  IFU'_T?/4*(  10HBITUM  COAL  )  ,  4*(  10HANTHR  COAL  )  . 4* <  10H  FUEL  OIL  >, 
U"-:  1£H  NAT  liAS  ) ,  6 * (  1 0H  L  P  S  )  / 

DATrt  I HTI N  '  10H  OVER  100  ,  10H10  TO  100  ,  Z*(10H  BELOW  10  ),10HUNDEF 
:.-'ED  ,  10H  OVER  10  ,  10H  BELOW  10  .  10HUNDEF I  NED  .  10H  OVER  100  , 2 w  ( 

I  ;  x-f  10  TO  ’ 23  1  ,  10H  BELOW  10  ,  10H  OVER  100  ,  9"(  10HUNDEF INED  )  /  3 

DAT,-.  IFUlUS/SM  3KMET  TONS),  4«(3HCUB  MET  >,  4«<8HM  CU  MET)  ,  3 

1 o “ ( EHCUD  MET  ,  / 

C 

M=  7 

N“0'r»NPLTS  +  ;  1 
C  DAT,.,  SET  ID 

9676  FORMAT  (All- 

E:~D><  5,S57r  JAE1234  _ 

-..-u  l.NMA.--.  c°PY  available  tc  DTIC  does  not 

:r_  NMAX.EO.0.'  GO  TO  900  permit  fully  legible  reproduction 

-  J .-a  Sti  12 
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r 


i 


LSP.CES-NSP.CE3+1 

N3RCES-NSRCES+NMAX 

:c*2 

=  ~ :  r  j  t  106 

106  rOR:-1ATi  1  H0 , 1  7>' ,  6HS0URCE  .  !  IX  ,  5HENG I NE  ,  8X  ,  6HANNUAL  ,  10X  ,  4HIDLE  , 

.  10X  ,  oHMOkMAL  ,8X,8HMILITARY,6X,  11  HAFTERBURNER/ 1 H  , 19X , 2H ID , 1 5X , 2H ID 
. . I0X , 5HTES73 . 1 1 X , 4HTIME , 1 1 X , 4HTIME , 1 1 X , 4HTIME , 1 1 X , 4HTIME > 

DO  .30  N-LSRCES.NSRCES 
DC  105  1*1, NPLTS 
SOR2M( 1+2, N )*0. 

105  CONTINUE 

READ  2. (ASPTSt I, N), 1*1,11) 

NE i<C-i*AE ?“ S i  2,1!  ) 

AEP“S (  2  ,!!>  =  :  . 

I F  <ABPTS(5.N>.LE,0. >  ABPTS ( 5 , N ) *7CHODF 
IF  ,  ABPTS(6,N.-.LE.0.  >  ABPTS  (  6  ,  N  ) -TCDYDF 
IF  iASPTD(?.N/.LE.0. )  ABPTSC 7 , N l-TCDZDF 
I  r  \ABPT3(B,N>.LE.0.  >  AEiPTS(8,N)*TCTSDF 
IF  ABPTS(9.N;.LE.0. t  AB?TS( S , N  )*TCVSDF 
IF  lABPTSs I0.M1.LE.0. )  ABPTS* 10 . N >*TCDSDF 
IF  (ABPTS(  11, «).!.£. 0.  )  AB?TS(  1 1 ,  I>  )»TCHBDF 
DO  120  K-l.NENG 

READ  101 , SID . I  DENG. TESTS, < TIME < I ) , I  *  1 , 4  ) 

101  •;~:-AT'F  :.0.:a,5F8.4.' 

IF  ; SID . NE .AB?TS< 1 ,N  )  )  GO  TO  9000 
PRINT  107, SID . I  DENG. TESTS, < TIME ( I > , I - 1 , 4  > 

107  FORMAT* 1H  .  F23 .0, 1 15, 6F  15 . 1  ) 

DC  120  1*1, NPLTS 

A  =  0. 

DO  1 10  J=1 . 4 

110  A*A+  (TIME(U>*EGEMFC* I ,0 , IDENG  )  ) 

SOREMt I  +  2 , N >*SOREM( I  +  2 .  N  >+A "TESTS/ 60 . 

120  CC N~ 1 NUE 

DO  125  1*1  ,  f!F ITS 

TOTEM* IO+M . I )*TOTEM( IO+M, I  )  +  SOREM( I+2.N  J/1000. 

125  CONTINUE 

S  0  R  E  M  <  1  ,  N  >  *  3 1 D 
130  CONTINUE 

CAL.  OABPTS (10) 

C 

C  DATA  SET  15 

200  P.EAD<  5,8675  )Ac.  1234 
DEAD  I , NMAX 
N.VJS-NKAX 

O'* ""’NMAX  *  MO.  OF  RUNUP  STAND  SITES 
Ic  NMAX. £0.0  GO  TO  300 
J PI  IT  204 

204  FORMAT ( 1H1 .55X.25H8.3  AIRBASE  RUNUP  STANDS. /1H-, 

.  49X  38HENGINE  INPUTS  (TIMES  TAKEN  IN  MINUTES)) 

L  DP.CES*NSRCE3  +  1 
NS ROE S =N3RCE  S  +  NMAX 

’«P.  I“S* 6,106 
DC  230  N-LSRCES.NSRCES 
DO  205  1  =  1  .  rip lTS 
S3flIM<  M  ,  ’•  =0. 

205  OOflNUE 

5 EAD  2  .  AS  =  -3!  I  ,N  )  ,  1  =  1  ,  1  1  ) 
n£;-.g»ASP“3-:  2 ,  M  ) 

C  ChANOE  MADE  BY  TQD  DELANEY 
A5rTS( 2 . N  )*1  .0 

IF  A2PTS ( 5 . N  -.LE.0.  )  ABPTS  (  5  ,  N  )  =RUHODF 
.F  .  ASP7S-  =.:•!  .  LE.0.)  A6PTS(6,N  )*F.UOVDF 
IF  .ABPTS;  7, N  .LE.0.  )  A3PTS  (  7  ,  N  '  =  F.UDZDF 


«.)  O  O  (J  U  Ll  U  L)  U  D  O  U  <-•  <-’ 


P.£AD(  S,36"6MB1234 

READ  1 ,  NMAX 

NT?  s*nma:. 

1  FORMAT? I  4) 

IF  i NMAX . EG . 0  >  GO  TO  103 
1  S'.CE  S»:NS  P.CE  S  + 1 
NSRCtS«NSRC£S+NMAX 


DO  ,0  N*LSRC£S,NSRCES 
READ  2,<ABPTS( I,N),I-I,10> 
2  FORMAT! 2F 4 .3, 3F8 . 2  ) 
"••'•-’'""""POINT  SOURCE  INPUT 

asp~s< i  ,n >*:o 


AS?“S(3,n:-X  (KM) 
Air"S<4,N)«v  (KM) 
AS?T3(5.N)»H0  (M) 

A 3 ? T S ( 5 , N  !-0Y 
A3-TS( 7 ,N ,*DZ  (M) 
AS?“3<  3  ,  N  '■  *TS  (DEG  F)j 
ASP“S(  9  .  f-i  )»V$  (M/S) 

A3?TS(  10, !i  :=DS  (M) 

A2 ?r$ ( 1 1 . N  ? *HB  (M) 


FOR  TRAINING  FIRES  THIS  IS  Q  (ICCAL/SEC) 


IF  ( ABPTSt  2 . N } , LE .0  )  ABPTS< 2 , N >«3 . 

IF  iABPVS(5.N).LE.0. )  ASPTSf 5 , N >»TFHODF 
IF  sAS?TS(6,N).LE.0. )  ABPTS! 5 , N  )>TFDYDF 
IF  (ASPTjjv7,N>.LE.0.  >  ABPTS(7,N>=TFDZDF 
IF  ( A3 PTS ( S . N  > . LE . 0 . )  ABPTS( S , N  )-TFQDF 
AfiF  I  RE  *AE?TS<  9  ,  N  ) 

GA'.S'F-ABi'TS!  10,  N  ) 

30R£M( 1 ,N i*A3PT3( 1 ,N  ) 

OO  20  I-l.NPLTS 

30REM(  1-2, N  >«GALPF«ANFIP.E*TFEMFC(  I  >*3 . 785*FLDENS(  2  )/1000. 

70T£M( IO+M, I )-TOTEM( IC+M , I )+SOREM( I+2,N)/1000. 

30  CO  .v  !r-"J£ 

40  SOtT'INUS 
WRI“E ( 6  ,  S  1  > 

WF. !  ”E  (  6,90) 

51  FCSMaT( 1 H 1 ,45X,45HB.  AIRBASE  POINT  SOURCES/, 
.  1 H-  ,  52>! .  S2HB  .  1  AIRBASE  TRAINING  FIRE  SITES  /1H-,’ 

.  53:( .  UHSOURCE  DATA  ) 

30  FORMAT <  1 H  — , 4SX , 5HSTACK ,  26X  , 4HHEAT/ 1 H  , 

.  5X. SHSCURCE .3X.5HPLUME . 3X, 1  INCOORDINATE S, I0X.6HHE I GHT.6X, 

.7r::LTA  '.ax. /“DELTA  Z,7X,SHEMISSION,6X, 10HANNUAL  N0..5X, 
."“FUEL/FIRE  /1H  , 

.  7X.  CHID,  6X.4HFLAG.6X,  SH(X),9X.  3H.'Y),2X,  3(5X,8H(  METERS  >  ),5X, 

.  :0'i  KCAL/  SEC  ) ,  6.<  ,  SHOP  F  I  RE  S  ,  6X  .  9H  (  GAL  LONS  )  > 

91  -ORMATC 1H  ,5X.F5.0,F3.0.3F12.3,2F13.3,F15.3,F14.3,F15.3> 

00  33  M-LSRCES.NSRCES 
93  WR I rE ( 6 , 9 1  :  ( A6PTS<  I , N ) , I  =  1 , 10 ) 

C«_.  QA  S  P  T  3  ( 10  ) 

DC  -1  M  =  L  SC.CE  S  ,  NSRCES 
DC  -I  1*3.1 1 

41  A£F'3( I ,H )»0.0 


DAT,-.  SET 

100  5 £A- (  5,8675  'AS  1234 
REmDI ,NMAX 
N'rCS  =  NMAX 
C"*""N!U,:  »  NO.  OF  TEST  CELL  SITES 
IF  NMAX.EQ.0)  GO  TO  200 
PR  I '-7  \0L 

104  FORMAT!  lril  ,55a,  23HB  .  2  AIRBASE  TEST  CELLS  /1H-, 
.  ■  3SHENG I NE  INPUTS  (TIMES  TAKEN  IN  MINUTES)) 
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o  u 


’  « 


I?  (A3PTS<S,N>.LE.0. >  ABPTS! 8 , N  l-RUTSDF 
IF  .ABPTS! 9.N1.LE.0. )  ABPTS  (  9  ,  N  ) -RUVSDF 
ir  ;  ABPTS  t  0 .  N  ) .  L  E  .  0 .  )  ABPTS(  10, N  >*RUDSDF 
: ABPTS!  1  *  . M  > . LE .0.  )  ABPTS! II, NI-RUHBDF 
jQ  220  Ko’.NENG 

PEAD  101  .  j  1 0  .  I  DENG  ,  TESTS  ,  (TIME!  I >, 1-1 ,4  > 

If  i SID. KE. ABPTS!  1,N>>  GO  TO  9330 
PR  I. ST  107, SID, IDENG,TESTS,(TIME( I ) , 1-1 ,4 ) 

00  220  1*1,  HPLTS 
A=5. 

j0  .10  0*4,4 

210  A=A’-  !T!ME(0?*EGEMFC(  I  ,  0  ,  IDENG  )  ) 

E  ■  0  E.  £  M !  1  +2  ,  M  )  *50R£M!  1+2, N)+A "TESTS/ 60. 

225  CONTINUE 

DO  225  1*1 , NPLTS 

TQT;M( IO+M. I  )*T0TEM( IO+M. I l+SOREM! 1+2, N 1/1000. 

225  ~g;;tinue 

SOPEM! : ,M  )*S:D 
230  CONTINUE 

2*L-  0ABPTS<  IC  ) 

SATA  SET  16 

300  PI AOv  5,8076  .'A61234 
”  A  j  !  ,  NMAa 
SPPS-NMAX 

C**“'"NMAX  -  NO.  OF  AIRBASE  POWER  PLANT  POINT  SOURCES 
IF  NMAX.EQ.0.'  GO  TO  400 
-PI  it  304 

304  rORMAT(  1H  .55X.25HB.4  AIRBASE  POWER  PLANTS  ) 

.  JPCES*NSP,CES  +  1 
NSRCES-NSRCES+NHAX 

j.  3*- 

V.PITE!  6,351  )  (  PL  NAME  !  II  ) ,  1 1  *  1  ,  NPLTS  ) 

351  FORMAT! 1 H- ,  6H SOURCE , 7X , 7HF URNACE ,!1X,4HFUEL, 

1 4/ , I 0HHEaT  INPUT, 2X,  7HPERCENT,2!(,7HPERCENT,5X, 6HANNUAL ,  4X, 

2  7HCONTROL.7X, 26HF RACTI ON  EMISSION  CONTROLS  ,/lH  , 2X , 2HID , 10X , 

3  4  H  TYPE  ,  1 2X.oHBUP.NED  ,  4X  .  9H<  MIL  BTU  > ,  2X  ,  6HSULF  UR  ,  5X  ,  3HASH  ,  6X  ,  8HFUEL 

4  USE,  5X , 4HF LAG ,3X,A4,5(4X.A4)  ) 

j'J  340  N * _  3 P.C E  S  ,  N SRC E S 

u  0  1  3  1 0  *  i  .  6 

■:?_< ij )«0. 

C  <T?.L  <  I J  >*0. 

13  “EM- (  iO  )=0 .0 

PE AO  2,<ABPTS<I,N),I*l,il) 

I-  i ABPTS! 2.N ;.LE .0.  >  ABPTS!  2  ,  N  )  *2  . 
f.EAO  302 ,3:D.MFCID,S,A,ANHUSE,MCFlG 
302  r  Or.  MAT!  F4  .£ .  I-.3F8.2, 14  > 

I*  SID. NE  .ABPTS!  1  ,N  )  )  GO  TO  9000 
A 1  “  J  .  0 
S  1  *  I  .0 

.r-  !• FC1D.20.9  •  A 1  *  .053 
.  -  •'  i  -  C  I  D  .  E 0  .  -.0  >AI  *  .042 
1  -  ■.  -FC  1 0  .  £0 .  1 1  )A  1  *  .  0 1  4 
If : MFC  ID . £0. 1 2  >A1* .001 
.  r  <  HF C  1  U  .  E  0  .  i  3  >  S  1  *  .  00056 
IF.  MFC  ID.  Eli.  IAJS1*  .0005  6 
IF! MFC  ID . EO. :=  >S 1* .0005  6 
I F  <  .  IF  CIO  E 0 . 1 6  ) S 1  *  .  30356 
I  -  i  3  .  E  Q .  0 . 0  !  S  -  S  1 
.  :  (  .  EC  .1/  ■  J  ’  .n  *  A  1 

WRITE*  6,302'  )3ID,  (  IFUMTPI0J1  ,  MFC  I  D  )  .  00.1  -  1 . 2  > ,  I  FULTP  !  MFC  I D  )  .  IHTIN!  MF 
1C  1  3  .  S  ,  A  ,  mM!>2 Gc  ,  I F UL D 3 (  MFC  i  D  )  . MCFLG 
303  FORMAT!  In  .  .-O.0.1X.2A’0.2(1X,A10>.F8.3,F9.3,FS.1,1X,A8,1X,I4) 

;i0  <=’. nPl.ts 
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310  ►CT^f  K  >- 1  .0 
FCTP.  (  4  ;«A 
FCTR(5)«S 

IF  .MCFLG, EC. 0>  GO  TO  330 

READ  311. SID. NPLTCT,;  I DPL!  <> ,  CNTRL  (  K  ) ,  K- 1 ,  NPLTCT  > 

311  FORMAT >F4.0'I£,O( 1 4 , F4 . 3  > ) 

IF  ! S ID . ME  .A3PTS1  1 , N  ) )  GO  TO  9000 
DO  10  I -1, NPLTCT 
10  TEMPI  I DPL <  I  •  1-CNTRL! I  ) 

DO  320  K-l, NPLTCT 
KK-  I  DP  ■_  (  <  ) 

320  FCTPt XKi»rC“R( KK  >*( 1 . -CNTRL ( K  >  ) 

330  CONTINUE 

312  FORMAT < i h*  90X , S ! Fa . 3 . 3X ) . F5 . 3 > 

WRI'E! 6,312/  (TEMP(K).K-l ,NPLTS> 

SOREM! 1 , N  )»5I0 

DO  240  l  - 1  , NPLTS 

SCRIM! I+2.N  )-( PPEMFC< MFC  I D , I  >*ANNUSE*FCTR{ I ) > 

TOTEM< IO+M, I >*TOTEM< IO+M , I >+SOREM< I+2,N)/1000. 

340  CONTINUE 

CAL;.  OABPT5-.  10) 

C 

C  DAT,-,  SET  17 

400  READ'S, 35761AE1234 
READ  1 , NMAX 
NICS-NMAX 

C«"»*NHAX  *  NO,  OF  INCINERATORS 
IF  NMAX  ,EQ.0>  GO  TO  500 
PRINT  40-1 

404  FORMAT < 1 H 1 , 55X , 25HB • 5  AIRBASE  INCINERATORS  > 

^SRCESTiSr.CES  +  1 

NSRCES-NSRCES-NMAX 

10*5 

WRITE! 6,401 )  ( PLNAME< I ) . 1-1 .NPLTS ) 

401  FORMAT! 1H-.51X.14HEMISS10N  INPUT  /  1 H0, 42X . 6HWASTE  ,  /  1H  ,11X, 

15HS0URCE ,7X,8HEMISSION,5X, 15HMATERIAL  BURNED . 5X , 7HC0NTR0L , 16X , 
225NPERCENT  EMISSION  CONTROLS  /  1H  , 13X,2HI0,8X, 9HF ACTOR  ID.8X, 
310H.MET  TONS  /  . 8X , 4HF LAG ,11X,S<A4,5X>  > 

DO  420  N-L3RCES.NSRCES 
DO  26  IK- 1.6 
I D P i_  (  IK  >=0. 

O'.TF.L!  IK  )«0. 

26  TEMP  (  I K  )  -0..T 

READ  2, < ABRTS!  I, N), 1-1,11  ) 

IF  i ABPTS> 2.N ) ,LE .0.  )  ABPTS! 2,N >-2. 

READ  402 , 3 i D , MFC  I D , ANNUSE , MCFLG 

402  -ORMAT! F4.0. I  4 .F8 , 2 , I  4  ) 

IF  ,  SID.Nt  .ABPTS(  1  ,N  :•  .>  GO  TO  9000 
PRINT  403,S:D.MFCID,ANNUSE .MCFLG 

403  FORMAT! 1H  , F 1 7 .0 , I  1 1 , r 20 . 2 , 1 1 3 ) 

SORiM! 1 , H  )  =  3  I  u 

DC  -10  K-i. NPLTS 
410  CNTRL!  K  ) 

IF  MCFLG  -:Q.2)  GO  TO  4' 5 

READ  311.31b. NPLTCT , ( ID?L< K ) .CNTRL! I DPL <  K )), K- 1 , NPLTCT > 

:r  •  SID.  fit -ABFTSf  1  ,N  )  )  GO  TO  9000 
DO  27  IY-1, NPLTCT 

2  7  "EM-  (  I  DPL'  1Y  .>  .--CNTRL!  I  DPL!  IY  )  > 

4  15  ICiriNUE 

4  1  i  * Cr.MAT (  IH+.72X.6!  F4.3.5X  )  > 

ITE! 6 , 41 1  /  ( TEMP! K  )  ,K-l , NPLTS  ) 

TO  -20  I-l . NPLTS 

ri'F-IM!  1+2  ,  N  )-(  EMFCIN!  MFC  ID,  I  >*ANNUSE*<  1  .-CNTRL!  1)7) 

"OTEM! 10  +  M, I  ) -TOTEM!  IO+M. I  >+SOREM<  I *2 , N  ) / 1000 . 


o  r> 


425  CON“INUE 

CAlL  OABPTS! 10  ) 

data  set  is 

5:75  READ!  5,867b  >Ad1234 
r.lAZ'1  ,  UMAX 
NST3-NMAX 

C****NHAX  -  NO.  OF  STORAGE  TANK  SOURCES 
IF  (NMAX.E0.5)  GO  TO  655 
PRINT  554 

554  FORMAT! 1H I .55X.26HB.6  AIRBASE  STORAGE  TANKS) 

WP.KTOT-5.0 
a R TOT 1-5.5 
3p(70T2a.?  •  kJ 
-SFCES-NSRCES+l 
N3F.CES-NSRCES+NMAX 
i  Omz 

PRINT  552 

552  FORMAT!  1H-.5IX,  REMISSION  INPUT/ 

1  1 H.-D. 23X , 6HANNUAL , 26X , 9KAVG  DA  I L Y , 5X , 4HTANK , 5X , 9HTANK  TYPE , 3X , 
25HV-.MBER  ,  3X  .  5HVAP0R  /  1 H  ,  6HS0URCE  ,  2X  ,  4HFUEL  .  2X  ,  4HR00F  ,  4X  , 

3  ir*r -JEL  USE  ,  4X  .  SHTANK  CAP  ,  2X  ,  9HTANK  TEMP , 2X , 8HTEMP  VAR.4X, 
4BH0IAMETER.2X. 1 1 H< ABOVE,  BE- , 4X . 2H0F . 5X , 6HHE I GHT , 2X , 15HTHRCUGHPUT, 
5  2X,5HPA:NT,3XtQHD:AMETER/lH  ,2X,2HID,5X.2HID,4X.2HID,5X. 

5  :r  <ILOLIT>,3X,9HIKILOLIT),2X.7H(DEG  F),4X.7H(DEG  F  )  , 4X , 

7oH<  METERS ) , 2X . 1 1HL0W  GROUND  >, 3X5HTANKS , 2X . 8h! METERS ) ,3X, 

3  5H -ACTOR , 4X , 6H FACTOR , 3X , 6HF ACTOR  ) 

DC  350  N-LSRCE3.NSRCES 
READ  2 , ( ABP7S< I, N). 1-1,7) 

READ  501 .SiD, IDFUEL, I  ROOF , ANNUSE .CAP , TTMP .TMPD I F , D IAM 
501  F  0  r. MAT  <F4.5.4X,2I4,5F8.4) 

1F( “MPDIF.E0.5. )  TMPDIF-DTBAR 
IF  •  A  E  P  T  3 2  ,  N  .  L  E  .  5 .  )  ABPTSt  2  ,  N  )»0. 
ir  i TTMP . EQ.5. >TTMP-TBAR 
C 

C  IF  BELOV/  GROUND  TANK,  THE  DAILY  AVG  TEMP  VARIATION 
C  OF  THE  VAPOR  S°ACE  ABOVE  THE  FUEL  WILL  BE  ZERO. 

C  IN  ORDER  TO  PRINT  ZERO  INSTEAD  OF  THE  DEFAULT  VALUE, 

C  THE  PRINT  STATEMENT  WAS  MOVED  AFTER  TANK  LOCATION 
C  13  DETERMINED. 

C  SCR  I NV2 .3413  WAS  DELETED. 
r 

553  rC3MAT ( 1 H  , F 6 . 5 , I  5 , 1  6 , F 1 4 . 3 , F 1 1 . 3 , F9 . 2 , F 1 1 . 2 , F 1 2 . 2  ) 

"P-: 5./9.  )*: TTMF-32. >  +  272. 

DO  505  0=1.7 

?  0  ) -EXP  ;  AL 7 HA(  U  ) -  BETA!  0  >/TP  ) 

555  CONTINUE 

GO  to  ( 515.535  > . 1R00F 

515  READ <  5 , 5 1 1  : S I D , NTANKS , HVS , C l , C2 , C3 , I UNGRT 
5 1 D  - DRMATt F 4 .0 . . 4 , 4FB . 4 . I  4  > 
ir\  .UNGR-.GE . 1  /TMPDIF-5. 

’RD.iT  553 . FDD .  IDFUEL . I  ROOF .ANNUSE , CAP , TTMP , TMPC  I F , D IAM 
IF  S  I  D  .  TIE  ..-,37  ~S  !  1  ,  N  )  )  GO  TO  9505 
l7  HVS.EO.J.:  HVS  =  !  2 .5"CAP )  / !  !  D I AM* *2 ) *3  . 14159  ) 

.■  Cl .£0.5-  »  Cl-TFDFLT 
IF  'C2.Eu.5- )  C2-FPDFLT 
I7  C3.E0.5. :  C3-TDDFLT 
1  -  ,<~Y  P  -  5HAS0VE 

I  7  '■  .  UNGRT.  GE  .  :  )  I  TKTYP-5HEE  LOW 

W°.:~E(  6,512  ITKTYP  .NTANKS',  HVS,  Cl  ,C2,C3 

HVS=HVS*3 . 22 1 

512  FORMAT!  1 H  + . E5X , A5 , 1 9 . 3F 10 . 2 , F 9 . 2 ) 

WP  '.0S-! NTm-W  S  *  WRKFCT! IDFUEL  >"C1*TVP( IDFUEL  >*FLT)ENS(  IDFUEL  )• 
.ANNUSE  ) 


VR^'CT-WRKTOT+WRKLOS/ 1000 . 

IF  NTANKS. NE.0)  GO  TO  520 
SRLOSS »0. 

GO  TO  540 

520  3RLOSS-! NTANKS-FIXFCT! IDFUEL  )  *42. 0*3. 785-FLDENS! IDFUEL )* 

1  t  (  TVP  (  IDFUEL  >/( 1 4 . 7-TVP ( IDFUEl  >  >  >**0. 68 >* 

2  ( (DIAM-3.281 )"*1 . 73 >*< HVS*«0. 51 >*( TMPD I F** . 5 >*C2*C3 > 

3R70T1  *BP.T071  +  BRLOSS  / 1000 . 

GO  TO  540 

530  VRKLOS*0. 

F  R I  ?4T  503.  SID.  IDFUEL,  I  ROOF  ,  ANNUSE  ,  CAP,  TTMP  ,  TMPD  I F  ,  D IAM 

READ  51 1 ,SID. NTANKS, Cl ,C2,C3 

IF  i SID.NE .AEPTS! 1 ,N >  )  GO  TO  9000 

IF  ; C 1 .EC.0. >  Cl-RFDFLT 

l-  - C2.EQ.0. )  C2-SFDFLT 

IF  <  C3 . EG .0 .  •  C3-PFDFLT 

I  TK"YP«5HA30‘/E 

WR I TE ( 6 , 5 1 0 > I TKTYP , NTANKS , C 1 , C2 . C3 

SR.OSS-: NTANKS*' !TVPi IDFUEL  > / <  14.7-TVPC IDFUEL )) )*«0. 7 )* 

1  C (VSBAR"2.237 )**0.7 >*  FLTFCT! IDFUEL  )* 

2  ; ( D IAM*3 . 28 1 )**1 .5)"C1*C2"C 3*42.0" 3. 785*FLDENS( IDFUEL)) 

=  ?.7OT2*8RTOT2  +  BRLOSS/1000. 

540  CONTINUE 

SCREM!  1  .  N  )-SID 
SGREM! 3 , N )«WRKLOS 
SOFEM!  4  ,  N  >=8RLOSS 
SOREM!  5  ,  N  )«IDF UEL 
3GR£M(6,N)*I ROOF 
DO  350  1=3, 11 
A9P"S< 1 , N >»0.0 
550  CONTINUE 
PRINT  551 

531  FORMAT! 1H-/ 1H0.63X.11 HSOURCE  DATA  /1H0, 

. 1 4X . 6HSOURCS , 10X , 5HPLUME , 1 7X  ,  1 1 HCOORD I  NATES , 1 6X , 8HSTACK  HT, 

.  . 10X . 7KDELTA  Y . 10X . 7HDELTA  Z  /1H  . 

. 16X.2HID , 13X.4HFLAG, 12X,3H(X), 14X.3H! Y),2X,2( 10X , 8H! METERS >> , 

.  9X  ,  ?H(  METERS  ) 

DO  560  N *L  S RC £ S , N SRC E $ 

PRINT  552, ( ABPTS( I ,N ) , 1*1 ,7 ) 

552  FORMAT! 1H  , r 20. 0 , F 1 4 .0, F 1 8 . 3 , F 1 7 . 3 , F l 7 . 3 , F 1 8 . 3 , F 1 7 . 3 > 

560  CONTINUE 
PRINT  561 

561  FORMAT! 1 H- / i H0, 50X , 3 7H SOURCE  EMISSION  DATA  (KILOGRAMS/YEAR)  /1H0, 
.  1 4X  .  5KSCURCE  ,  54X  ,  10HF  I XED  ROOF , 22X , 1 4HFL0ATI NG  ROOF  /m  , 

. 15X.2H1D.2ZX, 12HVCRK'NG  LOS S , 2! 20X , t 4HBREATH I NG  LOSS)) 

DC  590  N=LSRCES,NSRCES 
i P.OOF »SOR£'1(  6  .  N  ) 

GO  TO  (  570, 575  ), I  ROOF 

570  PRINT  571 ,SOREM< 1 ,N),(SOREM( I ,N ),I-3,4 ) 

571  FORMAT (  1 H  .F20.0.F30.3.F32.3  ) 

GC  “0  53.0 

575  PRINT  57  3 .DOREM!  1 ,H  )  . ( SOREMI  1 ,N  )  , 1*3. 4  ) 

5~£  FORMAT! 1 u  . r 20.0, F30. 3 , F67 . 3 ) 

5S0  CON" I NUE 

YFITE! 6.32  •  ( MINUS! JK )  , JK* l , 3) 

82  FORMAT! 1H  . 42X . A3 , 2 4 X . AS . 27X , AS > 

v,-f:.."ot=wfktot*1000. 

iP.TCT  1  "BP.T0T1  *  1000 . 

2P.TOT2«2RTOT2*1000. 

ViF.IT Ei  6.83>  WF.KTOT ,  BP.TOTi  ,  BRT0T2 
30  FORMAT!  IN  , 1 1 X . 1 2HTOTAL  ANNUAL , F 27 . 3 , F 32 . 3 . F 35 . 3  ) 
v,'P.K~OT “WiRKTOT /  1000  . 

3P.“CT1  *3RT07 1  /  1000 . 

S  :j.TOT2"BRTOT2/'  1000 . 


DO  392  N-LSRCES.NSRCES 
0*SGREM( 5 ,  N  > 

30?.EM(  3  ,  N  )*SOP.EM<  3  ,  N  )/TVP(  J  > 

SOREMv  4 , N )-20P.EM< 4,N )/(TVP(0 )/( 14.7-TVP( J ) ) >**0.69 
590  CONTINUE 

TOT£VP< 1 J-WP.KTOT 
TOT- VP ( 2  >-BRTOTl 
TQT3VP ( 3  >“5RTQT2 
C 

C  DATA,  SET  19 

S00  READ!  5,8675  /  AS  1234 
.READ  1  ,  NMAX 
S  =  NMAX 

C*»*"NHa.;  *  MO.  OF  OTHER  AIRBASE  POINT  SOURCES  (IF  ANY) 

IF  NMAX.EQ.0i  GO  TO  900 
PRI!T  604 

604  FORMAT (  iHl  ,52>:.25HB.7  AIRBASE  OTHER  POINTS  ) 

LS?/.ES«N5RCES  +  I 

nsr:es»nsrces+nmax 

10*3 

DO  320  N*LSRCES,NSRCES 
REA J  2 , <  A6 ? “S ! I, N), 1*1, 11) 

REaD  612,  SIC.  SOP.EM(  1+2, N) ,  1-1  .NPLTS) 

612  format;  F4 .0. 4>; .  9F8 . 2  ) 

IF  •  SID.NE.ABPTSU.N))  GO  TO  9000 

so'2M< i ,n;»s:d 

DC  520  I -1. NPLTS 

TOTEM( 1 0+M , I )=TOTEM< I0+M, I )+SOREM< 1+2, N> 

SOREM( I+2.N )-SOREM<  I +  2, N  >*1000. 

620  CONTINUE 

CAi. L  0A3FTS(  10) 

GO  TO  900 

9000  IMT  9001.  AePTS(  1  ,  N  ) ,  S I  D 

9001  FORMAT  (-0AIRBASE  POINT  SOURCE  ID  -*,F5.0, 

1  *.  CONTINUATION  10  **,F5.0> 

2  “Or" 

900  write; itape  >  nsrces.ntot.ntfs.ntcs.nrus.npps.nics.nsts.nxs, 
.  i  .ABPTLC I. N >,1-1.1 1 ) , ( S0REM< 1+2,N),I»1,NPLTS>,N»1,NS>RCES> 
RETURN 


SUBROUTINE  CABPTS(IO) 

COMMON  /“OINTR/ 

1  M, NSRCES , NMAX , NMAXE , 

2  LSRCt S , NTOT 
COMMON  /SPACE/ 

1  SORCE ! 2 100 ) , SOREM!  3,250) 

COMMON  /TOTS/ 

1  TOTEM< 20.6 J.TOTEVP! 10) ,£MISS( 8, 15,6 > 

REAL  LUEM'C 
COMMON  /EN-D31/ 

1  ECEMrCI  6,4,50) .PLNAME!  6 >,PPEMFC< 22 ,5 > , EMFCIN< 5 ,6  ) , 

2  TFEMFC!  6>,LUEMFC!9,6 ) .ALPHA! 7 > , BETA( 7  ), 

3  FLDEN3! 7  ) , FLNAME 17>,AF£MFC(2,6,6> . ATE MFC ( 2,6,6), 

-i  rSEMFC(  6,6)  .AFCSEM<  6,6  > .AFSOAK.ATSOAK, 

5  AFBR-M .ATBRTH , FLTFCT ( 7  ) , F IXFCT! 7  ) , 

6  WS’C'C  Tt7) 

COMMON  /DEFALT/ 

1  N?L~S. ITAPE , ACLNDY .ACLNDZ, 

0  TCV5DF . TCHBDF .TCHODF .TCDVDF , 

3  TCDZDc  ,  RUOSDF  .  P.'.'TSOF  ,  R'JVSDF  , 

-  RUFSD"  , RUHOOF . RUDYDF , RUC2DF , 

5  TF  OZCF ,TFQ0F , TFHBDF , TF  HOOF , 

6  SGCKDV .EGCKDZ.ACMLPL , ARDSDZ, 

7  ATDSO V ,ATDSDZ.TCOSDF,TCTSDF, 

3  FPDFLT.TDDFLT.RFDFLT.SFDFLT, 

3  PFDrLT , TFDFLT .TFDYDF, MINUS! 6) 

DIMENSION  ASP~S! 1 1 , 150) 

equivalence  :abpts( i  /  .sorcei i  )  > 

:r  10. EG. 1  )  GO  TO  71 


VP.!~e<  6,20} 

20  FORMAT!  IK-/  1H.D,  63X  ,  1 1HS0URCE  DATA  /1H0, 

.i3X  5HSTACK.34X,5HSTACK,8X,5HSTACK,7X,5HSTACK,6X,8HBUILDING/1H  , 

. 5X. 6HSOURCE.DX.5HPLUME.SX, 11 HCOORDi NATES, 1  <7X  .  6HHE  IGHT,  6X  ,  7HDELTA  Y 
7HDELTA  1 . 7X  ,  4HTEMP  .  8X  ,  8HVEL0C  I  TV  ,  4X  .  3HD  IAMETER ,  5X  ,  6HHE  IGHT/ 
.IF  ■  7X  ,  2HI  u  .  c  X  .  4HF  LAO  ,  6>!  ,"3H<  X  )  ,  9X  ,  3H(  V  )  ,  7X  .  8H(  METERS  > ,  5X  , 

■ Sri  > METERS  ),5X,8H( METERS >,5X,7H< DEG  K  ), 7X , 7H( M/SEC >, 2< 4X , 8H( METERS ) 

21  FORMAT! 1H  . 6X . F5 .0 , F7 .0 , 3F 1 2 . 3 , 4F I  3 . 3 , 2F 1 2 . 3  ) 

DO  02  N-LSRC25  .NSRCES 

22  '-;?IrE!6,21  }  '  ABPTS !  I  .  f) ) .  I » 1  , 1 1  ) 

54  FORMAT! 1H-/;h0.50X,37HSOURCE  EMISSION  DATA  (KILOGRAMS/YEAR)  ) 

55  FORMAT! IH0. 10X , 9HS0URCE  ID, 11X,A4,5! 15X,A4  >  ) 

55  FORMAT! 1H  . I 2X . F5 . 0, ! P6< SX , E 10 . 4 ) > 

57  FORMAT!  1 H  ,  15>. ,  6!  1  IX  ,A8  )  ) 

56  FORMAT!  I.-*  ,  3X  ,  1 2HT0TAL  «NNUAL  ,  6X  ,  1  P  E  10 . 4 . 5 !  9X  ,  E 10. 4  )  ) 

71  WRITE! 6,54  ; 

WR I ”E ! 6 , 55  )  < PLNAME ! I ) , I ■ 1 , NPLTS  ) 

DO  S2  N*LSR.CES,NSRCES 

62  WR 1 ?£ ! 6 , 56  )  SOREM!  1 , N ) , ! SOREM! I +2 , N ) , I - 1 , NPLTS  ) 

W? ITS! 6, 57  )  f MINUS! JK ) ,JK*1 .NPLTS  ) 

DO  26  I»1 , NPLTS 

25  TOTEM! IO-M, I J-70TEM! IO*M, I )»1000. 

W'  i'*E!  6,58)  !  TOTEMl  IO  +  M,  I  )  .  I  -  1  ,  NPLTS  ) 

DC  :.7  I  *  I  ,  NP L  TS 

27  “OTEM! IO-M. I >=TOTEM< IO+M, I )/l 000. 

RE-URN 

END 


SCRINV3 

SCRINV3 

SCRINV3 

SCRINV3 

SCRINV3 

SCRINV3 

SCRINV3 

SCRINV3 

SCRINV3 

SCRINV3 
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SI' 3 ROUTINE  ABARIV 
COMMON  /TOTS/ 

1  TOTEM' 20,6>,TOTEVP{ 10 ) , EMI SS( 8,15,6) 

COMMON  /POINT?./ 

1  M . N5RCES , NMAX , NMAXE , 

2  ISRCES , NTOT 
REAL  LUEMFC 
COMMON  /EMFDS1/ 

1  EGEMFC( 6 , 4 , 50 ) , PL NAME ( 6 ).PPEMFC( 22 , 6 ) , EMFCIN( 5 , 6  ) , 

2  TrrMFc<6>.LUEMFC<9,6>,ALPHAC7>,BETAC7>, 

3  FLDENS( 7 ),FLNAMt<  7 ) ,AFEM?C( 2 , 6 , 6 ) , ATEMFCI 2,6,6), 

i  CCEMFCt  6.6  > .AFCSEMf 6,6) .AFSOAK.ATSOAK, 

5  AFSRTH.ATBRTH.FLTFCTf  7 ) ,FIXFCT< 7 ). 

6  WR.<FC“'7> 

COMMON  /DE-ALT/ 

1  NPi.“3  .  ITAPE  ,ACLNDY  .ACLNDZ. 

2  TCV30F .TCHBDF , TCHODF , TCD YDF , 

3  TCOZDr .RUOSDF , RUTSDF , RUVSDF , 

4  RUHBDF .RUHOOF . RUDYDF , RUOZDF , 

5  TFDZDF.TFQDF . TFHBDF .TFHOOF , 

6  EGCKDY  ,  EGCKDZ ,  ACMIPL  ,  AP.DSDZ , 

7  ATDSDY .ATDSDZ.TCDSDF .TCTSDF  , 

3  FPDFLT.TDOFLT.RFDFLT.SFDFlT, 

S  PFDFLT.TFOFLT, TFOYDF , MINUS'  6  ) 

COMMON  ./SPACE/ 

I  SOF.CE  (  2100 ) , SOR£M( 8 , 250 ) 

COMMON  /ARRAYS/ 

1  HCWRKC  10,50)  ,HCBRTH(  5,  100)  ,HCEVP(  3,50) 

DIMENSION  TEMP ( 6  ) 

DIMENSION  AEAP.S (  7 , 300  ) 

DIMENSION  FCTR(  6 ) . I0PL<  6  > ,CNTR! 6  > 

EGO  I  VALENCE  -,ABARS(  1  )  .SORCSt  1  >  ) 

C**"S"  UP  GEOMETRY  OF  AIRBASs  AREA  SOURCES 
1 1-7 
IZ-OJJ0 
1  E 

NVRK-0 
!'.ER~=»0 
N/E  P-0 
N7OT-0 
N3HS-  0 
NGRVHS  »  0 
HMVnAR  «0 
NC7I-AR  =0 
C  DATA  SET  20 

SS76  FORMAT ( A 1  ) 

R  £  AD  ( 5 , 8676  )AB1234 
READ  1  ,  NMA.< 

C««*»NMAX  =  NO.  OF  AIRBASE  AREA  SOURCES 

1  FORMAT' 14) 

IF  NMAX.  EG.  0.'  GO  TO  500 

DO  ?Z  n=:,;jmax 

REmO  2 , <  ABARS i  !  .  N  > ,  I  =  1  ,  7  ) 

C*****”"  --AREA  SOURCE  INPUT 


c  :as..gm(  :  ,n  =»id 

C  ASA'  3M(  3,N  »X  (KM) 

C  AS*~GM' 4 . N >*Y  (KM) 

C  EA.-.GM(  5  .  M  =Z  (  M  > 

C  ASA-GM(5,N  »■_  (M) 

C  AEA.-'GM(  7  ,  N  .’“CZ  (M) 

£***«»»»»•,« 

2  r;'.MAT(  ZF  1 ,0.?c8. 2  ) 

IF  ABARS  i7,N).LE.0,0>  ABARS  ( 7 , N )«ARDSOZ 
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O  O  UtK)OU 


2.?  continue 
IO-1 

CALL  OA8ARSIIO) 

CALL  EVAPHC1  NWRK.NBRT.NXEVP  ). 

DATA  SET  2£ 

1 00  READ!  5,3676'A62234 
READ  1 , NMAXE 
NSHS-NMAXE 

****NMAXE  *  NC.  OF  SPACE  HEATING  EMISSIONS 

THESE  USE  THE  SAME  BASIC  EMISSION  FACTORS  AS 
THOSE  USED  FOR  THE  POWER  PLANTS  BUT  INVOLVE 
SMAL-ER  BOIlERS. 

IF  :  NMAXE  .  EG. Jot)  GO  TO  200 

LSF.CES-NSRCES+1 

N5RCES-NSRCE3+NMAXE 

•  WRITE(  6, 101  ;  PL  NAME  I!I),II*1,NPLTS) 

101  FORMAT I  1H 1 , 55X ,  26HC . 7  AIRBASE  SPACE  HEATING  /1H-, 

. 55X . 23HFUEL  AND  FURNANCE  INPUT, /1H0, 

.7':',.  LHSOURCE  .5X,8H£MISSION,6X,7HPERCENT,5X»  7HPERCENT,  SX  , 

. 10Hr  UEL  USAGE. 6X , 7HCONTROL , 1 3X , 25HPERCENT  EMISSION  CONTROLS/1H  , 
. 9X , 2HID , 6X . 9HFACTOR  ID, 6X,6H SULFUR, 8X, 3HASH ,  6X ,  1 2HAPPROP  UNITS, 
,SX.iHFLAC,5X,6(4X,A4) ) 

*  r.  s 

DO  160  N-LSRCtS.NSRCES 
DO  . 3  10*! .3 
ID°L( 10 )-0. 

C  IN  T  r.  (  10  >*0. 

13  TEMPI  10  >»0.0 

REAO  3, SID, :D£MFC,S,A.ANNUSE, ICNTRL 
3  FORMAT IF4.0.I4,3.C8.2,I4) 
a:«i .0 

S  ;  =  1  . 0 

IF (  IDEMFC.EQ.9)  A1-.056 
l-i 1DEMFC.EG. 10)  A1 * .042 
Iri I DEMFC .EQ.il)  A1-.014 
IF <  I DEMFC . EQ . 1 2 )  A1-.001 
IF-  I0EMFC.EQ. 13)  SI*. 00056 
I F C  : DEMFC. EQ. 14)  SI -.00056 
IF-  1DEMFC.EQ. J5>  SI*. 00056 
IF\ IDEMFC.EQ. 16  )  SI*. 00056 
IF(S. EO. 0.0)  C-Sl 
:r,r  . Ea.0.0)  a-ai 

PRINT  102, SID. I DEMFC, S, A, ANNUSE, ICNTRL 
102  -ORMATI1H  . F I  3 . 0 , I  9 , F 1 5 . 3 , F 1 2 . 3 , F 1 5 . 2 , 1 1 2 ) 

DO  110  0=1 ,NM«X 

IF  ■ SID . EQ.A6ARS  11,0))  GO  TO  120 
1 10  CON- I NUE 
GO  "0  9000 
120  SC-.EMI  1  ,N  . -SID 
SORE MI  2 , N  )  =0 
DO  .30  0=i , NPLTS 

130  rCT'.r  0  /»  1  .0 
- CT\ (  4  > =A 
-CTf.I  5  )*S 

IF  ICNTRL. EQ.0)  GO  TO  150 

READ  131 , SID, NPLTCT, I I DPLI K ) .CNTRI K ) , K-l , NPLTCT ) 

131  FOF.MATI  F4  .0, 14 .91  I  4  ,  F 4 . 3  )  ) 

1-  SID. HE.  SOREM(l.N))  GO  TO  9100 
j 0  0  i *  I . NPLTCT 

10  TEMP  I  IDPLI 1 > >*CNTR( I  ) 

DC  1 40  K=i . NPLTCT 
-1  .  -  :  OP  L  <  K  ) 
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140  FCTP.<  KK  )*FCTR{  KK  )*<  l.-CNTR(K)) 

150  CONTINUE 

31 Z  "CEi-!AT<  1H+,S5X,6!F4.3,4X>> 

WRITE! 6, 312  /  (TEMPI K),K“1 .NPLTS) 

DO  150  1-1, NPLTS 

3CREM(2+I  ,N  '*(  PPEMFCf  IDEMFC.l  >  *ANNUSE*FCTR<  I  >> 
TOTEM( IO+M, 1 )-TCTEM< IO+M, I J+SOREM! 2+1 ,N 1/1000 . 
165  CONTINUE 

CALL  OA3ARS! 1 0  ) 

:  ROAD  VESICLES 
C  DAT*  SET  27 

200  READ! 5, 8676  1*31234 
READ  1 .NMAXE 

uor  /HS-NtwE 

C***"NMA.<E  -  NO.  OF  DIESEL  AREA  SOURCES 
IF  ' NMAXE . EQ.0)  GO  TO  300 
LCRC£2»NSRCES+1 
HSRCE3“iN3RCt3*NMAXE 


PRINT  202 

252  FORMAT! 1H1 .53X.30HC. 8  AIRBASE  OFF  ROAD  VEHICLES  /1H-, 

.527. 12HDIESEL  INPUT/1H0, 

.25X.6HSOURCE.15X, 2 5 HAN N UAL  DIESEL  CONSUMPTION , 1 6X . 

.  22H01ESEL  CONSUMPTION  RATE  / 1  ri  , 

.27:<.2HID.  13X.21HIN  AREA  ( KILCGALLONS 1 , 17X , 

. 25Hr E R  VEHICLE  <  M I LE 3/GALLON  )  > 

DO  230  N-LSFXES.NSRCES 
READ  201 , S 1 D . ANNGAL , XMIGAL 
20!  FORMAT!  F  4 .0 . 4>, ,  2F8 . 2  ) 

CC  210  0*1,NMAX 

IF  SID.EO.ABARS  <1,0)1  GO  TO  220 
210  CC’.VINUE 
■30  ~0  9000 
220  CO- EM<  t  .N/-SID 
CQ.REM!  2  ,  N  .'*0 

!e  'XMIGAL. LE.0.0)XMIGAL»3.0 
=RIIT  203. SID. ANNGAL .XMIGAL 
202  FORMAT ( 1 H  . F3I .0. F30. 2 . F41 . 2 ) 

DO  230  1*1 .NPLTS 

SO-IEMC  2  +  1  ,  N  )»AFEMFC<  1.5,1  >“ANNGAL*XMIGAL“1000.  ' 

TCTEM<  IO  +  M , I  > »TOTEM( IO  +  M, I  l+SOREM! 2  +  1 ,N 1/1000. 

230  CON"I NUE 

CAL.  OABARS!  10  ) 

C 

C  DA"*  SET  26 

300  READ! 5,3676 >A£i234 
READ 1  .NMAXE 
NMV-.AR-NMAXE 

C*»«*NMAX£  -  NO.  OF  MILITARY  VEHICLE  AREA  SOURCES 
IF  NMAXE  .EQ.0)  GO  TO  400 
.  Ir.OES-NSPXES+l 
"'I  r.CES  “NS  RCES  + NMAXE 

10  =  .. 

°  F.  I '  T  301 

301  FORMAT! 1H1 .47X.42HC. 3  AIRBASE  MILITARY  VEHICLE  AREA  SOURCES) 

CAL.  VEHIC  (ABARS.IO,  SOREM , AF EMFC , AFC SEM , 1 1 , 1 2 . AF SOAK > 

CAL-  OAEARSv  1 0 ) 

C 

C  DATA  SET  29 

400  READ!  5. 3676  IAS i 234 
READ  1 , NMAXE 
L'C,  ->AR*NMAXE 

C*  ■'  \,,Aa.  =  NO.  OF  CIVILIAN  VEHICLE  AREA  SOURCES 
.  ;  NMAXE. EQ.0;  GO  TO  500 


LSRCES-NSRCE3+1 

NSRCES-NSRCSS+NMAXE 

10*5 

PRINT  4.0TI 

A01  FORMAT! 1H1  .47X.43HC.  10  AIRBASE  CIVILIAN  VEHICLE  AREA  SOURCES) 

CALL  VEH I C  (ABARS, 10,  SOREM .ATEMFC , CSEMFC , II , 1 2 .ATSOAK) 

CALL  OAciAKSv  10  ) 
r 

GO  TO  500 

/» 

9000  PR. If T  9001. SID 

9001  FORMAT ( *01 D“ , F  5 . 0 , *  DOES  NOT  CORRESPOND  TO  ANY  OF  THE  AIRBASE  AREA 
1  SOURCE  ID  NUMBERS" ) 

3*0- 

9100  ?*::•! T  9101.  SOREM(  1  ,  N  ) ,  S I D 

9101  FORMAT! -aSPACE  HEATING  SOURCE  ID  *",F5.0. 

1  *.  CONTINUATION  ID  *".F5.0> 

S~Of 

500  NTCT *NPlTS  +  2 

WRIVE(  ITAPE  >  fiMAX  ,  NTOT ,  NWRK  , NBRT ,  NXEVP  , NSHS ,  NORVHS  , 

.  NMVHAR , NCVHAR , NSRCES , < ( ABARS  ( I , N ) , 1-1 . 7  ) , N- 1 . NMAX  >, 

.  < ( HCWRK! I.N),I*1,10),N*1, NWRK ) , 

.  < (HCBRTH: I , N  ) , I  *  1 , 5  > , N«1 , NBRT  ) , 

.  *  HCEVr  <  I .  N  ,  I  •  1 , 3  ) ,  N*  1 ,  NXEVP  /. 

.  i  SOREM  I .  N  .  I  *  1 ,  NTOT  >  ,N-1  .NSRCES  > 

RE“L'RN 


o  n  o  o  o  n  o  o 


SUBROUTINE  EVAPHCI NWRK ,  NHCBR , NXEVP ) 

COMMON  /TOTS/ 

1  TOTEMf 20, 6), TOTE VP < 15) , EMISSt  8 ,15,6' 

COMMON  /ANNME7 / 

1  TSAR . ADD , P , PA , 

2  WSEAR . DTBAR.AMDBAR 
COMMON  /POINTR/ 

1  M , NSRCES , NMAX , NMAXE , 

2  LSRCEC.NTOT 
REAL  LUEMfC 
COMMON  /EMFBBl/ 

1  EGEiirCt  6 , 4 , 55 ) .RENAME <  6  )  ,PPEMFC( 22 , 6 ) . EMFCINI 5 , 6 ) , 

2  Tr  _MFC( S  ? .LUEMFC' 9,6)  , ALPHA! 7  ) , 8ETA( 7  >, 

i  7J.FLNAMEJ7  )  .AFEMf C( 2,6,6  >.ATEHFC< 2, 6 , 6  > , 

£  CS;Mr  .(  o  ,6  >  ,AFCSEM<  6,6  )  ,  AFSOAK  ,  ATSOAK , 

5  AFERTH , ATBRTH , FLTFCT{ 7  > , F I XF  CT< 7 ) . 

5  VRnFCT( 7 ) 

COMMON  /0£  "Ai-"/ 

1  NP  LT3 . I TAPE , ACL NOV , ACLN02, 

2  TCVSD-.TCHBOF.TCHODF.TCDVOF, 

3  TCOZOF , RUDSOF , RUTSDF , RUVSDF , 

4  RUHBOF  . PUHODF  .  RUOYDF , RUDZDF , 

5  Tf QZD? ,7FQGF .TFHBDF .TrHODF , 

6  EGCKOY . EGCKOZ, ACMLPL , ARDSDZ, 

7  ■  ATDSGY .ATOSDZ.TCDSDF .TCT3DF , 

3  FPOFLT.TDOFLT.RFDFLT.SFDrLT, 

5  7F OF _T.TFDFLT.TFDYDF.M!.'IUS(  6) 

COMMON  /SPACE/ 

1  SORCE' Cl 55) ,SOREM( 8,250) 

COMMON  /ARRAYS/ 

ln.u.  c,  HC!j'R!a  1*.53>.HCBRTH<5,155>.HCEVP<3,S0> 

0 1  Me  NS  ION  TV?  ;  7  ) .  YRU$E(  7  )  ,CC<  7  >  ,T3AVE  1<  7,55) 

DIMENSION  AEAF.S' 7 ,305) 

EQUIVALENCE  i AEARS ( l  ) . SORCE ( 1 >  ) 

FXROGF ( Fx.A.F .O.H.T.CI , C2  )*FX  - 12 .5*3 . 78S*A* 

1  f?/<14.7-p)  •»««j,58*(0,,3.28  )*»1 ,73*(  H»3.281  )«*5.51» 

2  7**5. 5*01*02 

r  LROOF ( FL.A.P .  V ,  0  ,  C  I ,C2,C3)*FL*42.0*3.785"A* 

;  i  •*/(  14. 7-P  )  .'—5. 7*<W*2.237>**5.7*<  0*3.281  >**1.5* 

2  C  L  *  C  2  *  ?  3 

C****CAi.C  jLATIQN  0-  HYOROCARBON  FILLING  AND  WORKING 
LOSi-.S  FROM  ml.  AIRBASE  SOURCES  INCLUDING 

tank  truck  billing 

AC  FILLING 

SERVICE  VEHICLE  FILLING 

_  A_i  PETROLEUM  STORAGE  AND  DISTRIBUTION  TANKS 
tXCE=T  THOSE  TREATED  AS  POINT  SOURCES. 

^AMOUNT  LOST  DuE  TO  SPILLAGE  IS  ALSO  CALCULATED  HERE 

~F=  S.0/9.«:>*i  TSAR  -32  .  )*273  . 

.5  o«:  .7 

15  “•'*»  I  >  =  E  :  P  A  _  r  H  A  (  U  ) - •’  B E TA (  0  )/T°  ;  ) 

C 

c  _  :a-.-  se~ 

867o  -  C  -  IaT (  A  I  ; 

REAO( 5 . SETS  JAB  1224 
^EAI>  1.  NMaXE 
-.=*nma:.e 

1  -  OR  -'AT (  !  4  > 

C**""’:^*.-..  .  NO.  0"  AIRBASE  AREA  SOURCES 
'  VA  < E .EQ.C)  GO  TO  105 
'-1713 
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13  FORMAT! 1H1 .52X.32HC.2  AIRBASE  HYDROCARBON  FILLING) 

VR : 7E ( 6 . 2  ) 

2  FORMAT < IH-,51X,14HEMISSION  INPUT) 

WRITE (6,14)  ! FL NAME < !  ), 1-1,7) 

14  FORMAT!  !  HJ0T .  IX,  6HSOURCE  , 42X , 28HKI LOL ITERS  OF  FUEL  PROCESSED , 38X , 

. I 5HANNUAL  SPILLAGE  /1H  , 3X , 2H I D , 7X , 7< A4 , 1 1 X ) , 1 1 H< H-TONS/YR )/ 1 H  ,) 
DO  50  N-I.NMAXE 
READ  ll,SiD.fYRUSE(J).J=l,7) 

11  FORMAT! F4.0.4X.7F8.2) 

READ  2222, <  QC(  J  ) ,  J*  1 ,7  ), SPILL 
2222  F OF MAT! 8X . 3FS . 2  ) 

DO  0033  J'-’.T 

I  r  \  CC  (  0  > .  _  ;  -0 . 0  )  CC(0)-TFDFLT 
3333  TSA  -'El  (  J  ,n  ,=CC(  J  ) 

DC  .0  0-1  . NMAX 

IF  ■  3ID.EQ.A3ARS  !1,J>>  GO  TO  30 
20  CON'INUE 
30  TO  9000 
30  HCWRK!  1  ,N  -SID 
HCWRK (  2  ,  N  =0 

Dp  I  NT  12,  3:.D,<  YP.USE!0),J»1,7),SPILL 

1 2  F  OP.  MAT  (  1  H  ,r7.0,3X,lP7!E9.3.6X).3X,lPE9.3) 

WRK.SS-0.2 

DO  5.0  J »  :•  .7 

A-V-’  KFCT!  J  "CC!  0  )"TVP(0  >"FLDENS!J  >»YRUSE(U  > 

W * !"-  _  S  S  *  W?.K_  S3  “A 
30  HCV»r.  !2+0.N)*A 

7C"VP<  4  >*TC"yp<  4  )  +WRKL SS/ 1000 . 

TjTIVP!  5  >=707lVP!  5  ) ’■3P  I LL 
.tCVRK! 10, N ,=’000. “SPILL 

60  CONTINUE 

VR I “Z! 6,5555)  <  FLNAME  {  I  >,1-1,7) 

55E5  FORMAT! 1 H0 . IX. 6HS0URCE , 42X , 30HESTIMATES  OF  THROUGHPUT  FACTOR  / 

.IP  . OX , 2H I D , SX . 7( A4 , 10X  )  / 1 H  ,) 

DO  4444  N-l.NMAXE 

VHIVE(  6,6665 >  HCWRK! 1 , N > , < TSAVE 1 < U , N  )  ,0- 1 . 7 ) 

5556  FORMAT!  1H  ,  F7 .0,  F  10. 2 , 4X ,  6<  F  10. 2 , 4X  ) ) 

4-144  CONTINUE 
°R:’!T  3 

2  FORMAT! 1H-/1H0,50X,37HSOURCE  EMISSION  DATA  (KILOGRAMS/YEAR)) 

WR ! ~E  *  6 , 7  / 

7  FORMAT! 1H0.61X, 14H1W0RKING  LOSS)) 

W,R1“E(  6,61  )  !  r  L  NAME !  I J  ) . IJ-1 ,7  > 

61  FORMAT!  lrl.5  .  IX  .  6HS0URCE/ 1H  ,  3X  ,  2H I D  .  7X  ,  7 !  A4 , 1 1 X  )  , ’.  X  .  8HSP  ILLAGE / 1 H  > 
DO  55  N-l.NMAXE 

PRINT  52  .  HCWP.M  1  .  N  ),!  HCWRK!  2*0  ,  N  ),  0- 1 , 7  >,  HCWRK!  10.  N> 

62  FORMAT ( 1 H  . F 7 .0 , 3X , 1 P 7 ( E9 . 3 , 6X ) . 3X , 1 PE9 . 3 > 

Cj  55  0=1.7 

HCWRK! 2+U  ,  N )*HCWRK( 2+0  ,  N )/TVP ( 0  ) 

65  CONTINUE 

r  F.  1  !7  4 

4  FOF-'AT! 1H-.43X.41HT0TAL  ANNUAL  SOURCE  EMISSION  RATE  ! KG/YR ) ) 
TC":VP!  4  ;*“r*£VP!  4  )-«I000. 

*DTEV?<  5  *■•:•?£ VP!  5  >*1000. 

3R:.iT  66.  T'JTE  VP  !  J  >,0  =  4.5) 

TCTFVPI 4 !=”OTEVP( 4  i/:000. 

TC“i VP ( 5  J  =~C7£VP ( 5  ) '1000. 

66  FOPMaT! 1H0  47X.12HWORKING  LOSS . 20X , 3HSP I LLAGE/ 1 H0, 49X , 1 PE9 . 3 , 

.  2 .  E  5 . 3 

«-»*CALC JLATION  OF  HYDROCARBON  BREATHING  LOSSES  FROM  ALL 
AIRSASE  PETROLEUM  TANKS.  THIS  IS  TO  BE  ACCOMPLISHED 
BY  THE  KIND  OF  ACTIVITY,  I.E.,  TANK  TYPE.  IN  WHICH 
THE  -UEL  IS  STORED.  IF  THE  TANKS  AP.E  PRESSURIZED 
ADEQUATELY  THERE  SHOULD  3E  NO  BREATHING  LOSSES. 
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DATA  SET  22 
122  \2AD< 5 , 8676 >A61234 
READ  1 , NMAXE 

****NMA,‘.E  -  NO.  OF  ETROLEUM  STORAGE  TANK  AREAS 

N'iCSP ”0 

IF  .  MaXE.cQ.0)  GO  TO  200 
3RLGSS-0.0 
i.nC2R«NHC8R+l 
NHC3P-NHCBR+NMAXE 
pr:-;t  102 

102  FORMAT < 1 H 1 , 50X , 36HC . 3  AIRBASE  PETROLEUM  STORAGE  TANKS  ) 

-  R  I  r'T  2 
=  c  .  •T  103 

103  *OR>‘AT' 1H0,2X.6HSOURCs,4X,4HFUEL.AX,4HROOF,AX,7HNUM.  OF, AX, 

•8HA/G  TANK , 4X . EKPAI NT. 5X , 28HROOF  ID  1  -  TANK  DIAM  FACTOR, 4X, 

.  3FH-ICOF  ID  I  =  AVG  HT  OF  VAPOR  SPACE  (M>  /1H  , 

.  =  ._r»ID,  :x,216X,2HID;,6X,5rtTANKS,5X,BHDIAMETEP.,4X,6HFACTOR,4X, 
.22KRC0p  ID  2  »  SEAL  FACTOR , 9X , 24HROOF  ID  2  -  RIVET  FACTOR  ) 

DC  .  £0  N*=LriCE?.,NHCBR 

i’.EAO  101  .  SID,  IDFUEL  ,  IDROOF  .NTANKS. DIAM,  C1,C2,C3. 

101  r  0 F.i-IAT (  F  4 . 0 . 3 1  4 , 5  F  8 . 2  > 

DC  110  J-l , UMAX 

sid.eq.abars  <i,oj)  go  to  120 

110  CC'!~INUc 
GO  "0  9000 
120  -C3-.TH<  1 ,N ;=S!D 
-.CERTH<  2  ,  N  ,»•; 

•iCDFTHl  3  ,  N  .'■IDFUEL 
HCSCTH(4,N  )" IDROOF 
GO  "0  ( 130. 1 40  > , IDROOF 
•30  •-  .  C  1  .  L  E  .  0 . 0  •  Cl-FPDFLT 

Ir  .C2.LE.0.J)  C2-TDDFLT 
HVS-C3 

A»S7ANKS»  =  XR00F«  FIXFCTI IDFUEL ) , FLDENSt IDFUEL ) ,TVP( I DFUEL ), D IAM, 

.  H  V  3  ,  DTEAP..C1  ,C2  ) 

TOTE  VP  (  6  )=>TCTEVP<  6  )*A 
HCS?.TH(  S  ,N  5*A 

?RP«T  131 , SID. IDFUEL. IDROOF, NTANKS, DIAM, C! .C2.HVS 
131  FORMAT (  1 H  , F 9 . 0 , I  7 , I  3 , I  10 , F 1 3 . 2 , F 10 . 2 , F 2 1 . 2 , F 35 . 2 > 

GO  TC  150 

140  IF  .C1.LE.0.0)  Cl-PFDFLT 
I-  »  C2 . L E .0.0 >  C2-SFDFLT 
1-  : C3.Lt .0.0  •  C3-RFDFLT 

A»,NTANKS*FLROOF<  FLTFCTI  IDFUEL  >,  FlDENSC IDFUEL  >  ,TVP(  IDFUEL  )  ,WSBAR, 

1  D’AM.Cl .C2.C3) 

TOTE VP < 7  )  =TOT£ VP ( 7  )* A 
rCSr.THf  5  ,  fl  )=« 

PRINT  131  .SID.  IDFUEL  .IDROOF,  NTANKS,  DIAM,  Cl  ,C2,C3 

150  CONTINUE 
“3:N7  3 

:r  is i 

151  tCP.i;AT(  1H0,4I>;,6KSOL'RCE.12X.10HF!>:ED  ROOF  .  12X,  uhfloating  roof  / 

.  43X , 2S I  0  .  ! 2X , 2(  INBREATHING  LOSS.10X)) 

DO  ; 70  N  =  L  XCoR , NHC3R 
::.TDOF*HCSRTH'  4,N) 

SC  “0  (160.155) .IDROOF 

160  - K I  V  T  I61,-iC3ETH( 1 ,N).HCBRTH(5,N) 

1 6 1  FORMAT (  1 H  ,F4  7 .0, 12X, 1PE9.3  ) 

;=HCERTH( 3.N> 

rtCE:’TH(  5.N  )  =  HCBRTH<  5  ,  N  )/(  TVP  (  0  )  /  (  14. 7-TVP(0  )  )  >**0.68 
•SO  "0  170 

165  PRIST  166 . HCERTHt 1 ,N  )  .HCBRTH< £ ,N  ) 

1  c  5  F  1H0.F4T  .  0 , 3  6  X  .  IPE9.3  ) 


o  o 


« 


C 

L 


i 

« 

.  * 

x 

9 


C-PCBRTHl 3,N  > 

HCiF.THI  5  ,  N  ’«HCBRTH<5,N)/<TVP<0  >/< 14.7-TVPI J  > )  )*>»0.7 

170  CONTI NUE 

WRITE! 6, 15?  f  MINUS',  JK),JK«1,  2) 

163  FORMAT!  1H  ,  60X  .  A8 , 1 5X . AS  > 
r=U.:T  171  ,  <  “OTEVP! J  )  .  J«6 , 7  ) 

TOTE VP ( 6 )-TCTEVP! 6 >/!  000. 

T0"VP<  7  l-TC^EVP!  7  >/1j 000. 

171  FORMAT! 1H  , 38X  ,  1 2HTOTAL  ANNUAL  ,  9X  ,  1PE9 . 3 , 1 5X  ,  E9 . 3  ) 

DATA  SET  23 

200  READ! 5 , 3676  IAS  1234 
READ l , NM.-ViE 

C****NKAXE  =  NO.  OF  TANK  TRUCK  PARKING  AREA  SOURCES 
IF  i  NMAXE  .EC.0)  GO  TO  300 
IDROOFM 
EP.LOSS-ET.2r 
-rCSP-NHCBR+i 
H-CEP-NHCBR+NMAXE 
3  n  I  .'i  T  202 

202  rQR:1AT‘.  1 H 1  ,53a,  32HC  .  4  AIRBASE  TANK  TRUCK  PARKING  > 

PFiriT  2 

3  *.:•■:?  203 

253  FORMAT ( 1K0, ?0X ,8HAVG  TANK , 1 4X , 7HAVERAGE , 1 1 X , 8HAVG  TANK  /1H  , 

.  17X. 5HS0URCE. 10X.4HFUEL , 1 1 X . 9HNUMBER  OF , 1 3X , 9HCAPACITY , 12X , 

. 1  INFRACT: ON  OF , 10X , 8HD 1AMETER  /1H  , 

.5>(.2{  13X.2HID) ,  1 IX,  1 1HTANK  TRUCKS  ,  10X  ,  1 2H(  K I LOL  ITERS  ) ,  10X, 

. 11H“ANK  FILLED, 10X,aH< METERS  )  ) 

DC  230  N-LHC3R.NHCBR 

READ  201 , SID . I DFUEL , NTRKS , TNKCAP , FRCFUL , D I AM 

201  FORMAT ! F4.0,2I4,4X,3F8.2) 

DO  210  J=1 .NMAX 

IF  , SID.EO.ABARS  < 1 , J  )  >  GO  TO  220 
210  CONTINUE 
GO  “0  9000 
220  hCBD.TH! 1.N1-SID 
HC:  3TH( 2,M  !«2 
hcerth<3,n:-:dfuel 

PCS1  TH<  4  ,N  1-IDR00F 

-vs«( 1 .0-FRCFUL  ) * 4 . 0*TNKCAP / ( 3 . 1 4 1 59*D I AM**2  ) 

Cl-FPDFL" 

C2»"DDFLT 

A-NTRKS-FXROOF< FIXFCT! I DFUEL  >,Fl DENS ( I DFUEL ) ,TVP< I DFUEL >,DIAM,HVS, 
1  DTBAR.C1 ,C2 ) 

“OTEVP! 8  1-TOTEVP! 8 i+A 
HCSF.TH !  5  ,  N  -A 

PRINT  221 .SID. IDFUEL, NTRKS, TNKCAP, FRCFUL. DIAM 
22‘  cORMAT ( 1 h  ,F23.0,I13,I17,F24.2,2F20.2) 

230  CONTINUE 
3  R  I  TIT  3 

=  Ri;iT  231 

231  FORMAT  t  !  H0 . 4  ?  y, .  9H  SOURCE  ID,  1 5  X  ,  14HBREATHING  LOSS  /1H  ) 

::  240  "  =  .  -CSF  .  r'HCbR 

•PI  -IT  2  2  2,  .rC  SFTH!  1  ,N  )  ,  HCBRTHI  3  .  N  ) 

232  FDRMATilH  .  F  5  6 . 0  ,  l  S  X  ,  1  P  £  9 . 3  1 

*HCBRTH ( 3 . K T 

HCERTH<  5 , N  -hCBRTH!  5 ,N ),  <  TV3! 0 )/( 1 4 . 7-TVPIO  >  > )**0. 68 

310  :oi.~:nue 

VP  •'■El  3 .75  :■  '  MINUS!  JK  )  .OK-1  ,  1  ) 

75  -ORMATdH  .  75;:,A8) 

PINT  241  ,  TOTE  VP  (  8  1 
TO" VP i  3  >«"OTEVP(  8  1/1000. 

-OF .  IaT (  1H  .  49>: ,  12HT0TAL  ANNUAL  ,  MX  .  1  PE9 . 3  ) 
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DATA  SET  24 

304  REAS ( 5 , 3676  )AE 1 234 
READ  I  ,  NMAXE 

****!*MAXE  ,  NO.  0F  VEHICLE  PARKINS  AREA  SOURCES,  SOTH 
MIL I“ARY  AND  CIVILIAN 
IF  v  NMAXE.  EQ.0)  GO  TO  4  00 
I D ROOF ■ 1 
BRLCSS-0.0 
L.HCSR-NHC3R+1 
NHCSR-NHC3R+NMAXE 
PR  Ir:T  302 

302  FORMAT! 1H1 .S4X.28HC. 5  AIRBASE  VEHICLE  PARKING  ) 

3  R I  'IT  2 
PR  I  'IT  303 

303  FORMAT! 1 H0, o0T , SHNUM  0F,11X,3HAVG  TANK , I 2X , 7HAVERAGE  /1H  , 

.  29X . 6HSOURCE . i0X,4HFUEL . 10X , SH VEHICLES, I0X , 8HCAPAC ITY , 10X , 

.1  INFRACTION  OF  /iH  , 

•  Six  2HID, 13X.2HID, 11X,7HIN  AREA . 1 1 X , 8H( L ITERS ), 10X , i 1 HTANK  FILLED) 
DO  330  N-LHC3R.NHC3R 

READ  301 .SID.1DFUEL, NVEH , TNKCAP , FRCFUL 
301  FORMAT (F4.0.2I 4,4X,2F8.2) 

WRITE (6, 21 3 )  SID, I DFUEL, NVEH, TNKCAP, FRCFUL 
213  FORMAT ( 1 H  , F35 .0 , 1 1 3 , 1 1 6 , 2F 1 9 . 2  ) 

TNKCAP “TNKCAP / 1000. 

DO  010  0-l.NMAX 

IF  (SI0.EQ.A3ARS  <1,J>)  GO  TC  320 
310  CONTINUE 
GO  0  9000 
320  HCS-.TH!  1  ,N)«DID 
HC3R7H! 2 , N  j-C 
riCBRTH!  3.N  >» I DFUEL 
HCSF.TH  (  4  ,  N Is  1 DROOF 

EFD!AM-(  4.0*t-  XCAP/3. 141 59)**. 33333333 
HVS*v  1  . 0-FRCFl'L  )*EFDIAM 

c: »fpdflt 

C2-TD0FLT 

A-N7EH*rXR00r < FIXFCT!  IDFUEL ) , r LDEN3I I DFUEL ),TVP( IDFUEL  )  .EFDIAM, 

.  -|V0  ,  DT3AR.  C1.C2) 

TO- EVF ( 3 ;=TOTEVP< 9  )+A 
HCERTH! 5 , N  '  *A 
>30  CONTINUE 
PR!  T  3 
Pj:-iT  231 

00  04 Z  N“LHCSP. .  NHCBR 

PRINT  23  2  ,  HCERTH!  1  ,  N  ) , HCBRTH!  5  ,  N  ) 

J-HC.3R.TH!  3  .  N  ) 

nCil-.TH!  5  .  N  =*HCERTH<  5  ,  N  ) i <  TV?  !  J  >  / !  14 .7-TVPCO  >  >  >*»0.68 
340  COtriNUE 

wr:"E(6,7=>  <minusu>) 

PRINT  24  1 . TOxE VP { 9  ) 

7CTEVP! S >=70?:.  VP! 9  1/1000. 

OA-%,  SET  26 

400  REAI i 5,5575  >A2 1234 
REA-01  .NMAXE 
'  .  ?  *!4MA  •-,£ 

=  NO.  0C  EVAPORATIVE  HYDROCARBONS  FROM  OTHER  SOURCES, 

E.G..  PAINT  SPRAY  BOOTHS.  DEICERS,  DRY  CLEANING,  ETC. 

IF  NMAXE. EO.0)  GO  TO  500 

-CS.M-0.0 

PRl.'T  402 

402  FORMAT! 1H1 .47X.43HC. 5  OTHER  AIR3ASE  EVAPORATIVE  HYDROCARBONS  > 

WRI~£! 6,571 ' 

571  FORMAT! 1H-. 53 X.31HE MISSION  INPUT  ( K I LOGRAMS / YEAR  )  ) 


VS ITE( 6 , 403  < 

402  FORMAT!  1 H0 . 5 1 X , 9HS0URCE  ID,  12X ,  1  5  HAN  N  UAL  EMISSION) 

DO  430  N-l.NMAXE 
REAI*  401  ,  SID  ,ANNEM 
401  FORMAT (F4.0.4X.F3.2) 

ANHiM-ANNEM-1000. 
wp.:te<6,404  )  sid.annem 
an;iem»annem/I000. 

404  FORMAT! 1H  . 53X , F5 .0, 17X , 1 PE9 . 3 > 

DO  -10  0*1 , UMAX 

IF  SID.fQ.AEARS  (1,0)  GO  TO  420 
410  CGN"INUE 
GO  “0  9000 
400  rC£VP< 1 , N  )-S10 
UCEVP( 2, N ;-o 
HCE  VP ( 3 , N ) “ANN EM* 1000 . 

TOTEVP < 10  >  "TOTEVP ( 10J+ANNEM 

430  CONTINUE 
3?.:r:T  3 

=  ?.!?!"  431 

431  FORMAT! 1H0, SIX. 9HS0URCE  I D , 15X . 9HEMI SSIONS  ) 

DO  440  N-l.NMAXE 

“PINT  430  ,  rlCEVP!  1  ,  N  ) ,  HCEVP  (  3  ,  N  ) 

432  FORMAT! 1H  , 5 3 X , F S . 0 , 17X, 1PE9.3  ) 

440  CONTINUE 

TOTE VP ! 6 ) *TOTE VP ! 6  )+HCSUM 
TOTE VP ( 10 )  -  TOTEVP! 10 >*1000. 

,.'?.:7E<6,45)  (MINUS! 0K),0K*1,1  ) 

45  FORMAT! 1H  .75X.A8) 

PRINT  441 , TOTEVP! 10) 

441  FORMAT! 1H  , 49X , 1 2HT0TAL  ANNUAL . 14X . I PE9 . 3  ) 

TOTEVP ( 10 1 »T0TEVP ( 10 )/ 1000. 

C 

GQ  TO  500 
C 

S 000  PRINT  9001, SID 

900 1  r ORMAT! * J I  0* . F 5 .0 , *  DOES  NOT  CORRESPOND  TO  ANY  OF  THE  AIRBASE  AREA 
1  SCARCE  ID  NUMBERS") 
s~c- 

500  RETURN 
EN3 


« 


« 


« 


I 
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SUBROUTINE  VEHIC!  SM.IO,  AVH . EMFC.CSEM.il, 12, SOAK ) 

COMMON  /PCINTP./ 

!  M ,  NSF.CES ,  NMAX  .  NMAXE  , 

2  LSRCE2 ,NTOT 

COMMON  /TOTS/ 

1  TOTEM(2j0T,6>,TOTEVP(  10 ) , EMI SS! 8 , 1 5 , S > 

COMMON  /DEFALT/ 

1  NPLTS . I TAPE .ACLNDY.ACLNDZ. 

2  TCVSDF .TCH8DF ,TCHODF . TCDYDF , 

3  TCDZDF  ,  RUDSDF  ,  RUTSDF  ,  R'JVSDF  , 

4  R'JHBDF  .RUHODF  .RUOYDF  .P.UDZDF  , 

5  TFDZDF .TFQDF .TFHBDF ,TF HOOF , 

6  EGCKDY .EGCKDZ.ACMLPL , ARDSDZ , 

7  ATDSDY .ATDSDZ.TCDSDF .TCTSDF , 

3  F?DF'_T,TDDFLT.RFDFLT,SFD-LT, 

9  P F DF IT, TFDFLT.TF DYDF .MINUS < 6  > 

DIMENSION  AVH! 3, 1 50 ) , EMFC ( 2 , 5 , 6 ) , CSEM< 6 , 6 > , VM! 6 ) , SPDC( 6 > , NCDST( 6 > , 
.  CM  I  1 . I 2  ) 

PRINT  1 

1  FORMAT!  1H-.61X.13HVEHICLE  I  NPUT ,  /  1 H0, 20X  ,  5HSPEED  ,  9X , 

1 45 n~HOUSANDS  OF  MILES  PER  VEHICLE  CLASS  PER  YEAR ,  7X , 

Z35HCOLD  STARTS  PER  VEHICLE  CLASS  PER  YEAR . 3X ,  8HANN .  HOT  / 

3. H  OX , 2H i D . 5X , 6HOPTIQN . 4X , 5H\ MPH ) . 10X , 3H( 1 > . 5X , 3H{ 2 ) , 5X , 3H! 3 ) . 5X , 
4-h(  -  :  .5X.3H!  5:.SX.3H!  6>,8X,3H<  1  >,4X,3H!  2>,4>.'.3H!  3>,4X,3H!4  >  ,4X, 
a2--.i  ,4X.3H<6>.SX,SHS0AKS  > 
do  o«/.,n?lts 

1J0T  3°D  :>  J  .-l  .3 

DC  ~3  N-LSRCE3.NSRCES 
DC  20  J-l  ,3 

2d  sfd::<  j  >*:  .3 

READ  2  1 .LID, I OPT , SPEED. (VM(J > ,  J*  1 ,6) 

21  FORMAT  <F4.0.Ia,9F8.2) 

PRINT  31 ,S1D. 1  OPT, SPEED, (VM(U  >,  J-l ,5) 

31  FORMAT!  1H  ,  2X  .  F5  - J0T ,  I  6  ,  F  1  2 . 2 , 6X  .  oF3 . 2  ) 

DO  ZZ  J-l. UMAX 

IF  SIO.EG.GM! 1,J>>  GO  TO  40 
30  CONTINUE 
RE  TV -IN 

40  AVH  1 , M  >  * 3 1 D 
AV-  2 , N )*0 

IF  SPEED.DR. 19.6)  SPDC! 1 >- 1 2 . 5*( SPEED**! -0. 845 > ) 

IF  SPEED. HE . 19.6  ;  SPDC! 2 >-7.0»f SPEED**! -0.649  )  ) 

IF  : SPEED  .  NE  .  13 . 6  )  SP DC t 3 >- 1 . 0+< 3PEE D- 1 9 . 6 >*0 . 01 262 

K-  I'D®  T 

IF  , iOPT.NE.3)  GO  TO  50 
READ  4 1 , S I D . ( DCDST! J  ) , 0- 1 , 6  ) 

41  FORMAT! F4 .0.614 ) 

PRINT  42,<NCD0T<U),J«1,5> 

42  FORMAT' 1H+,"S4,6I7  ) 

IF  DID. NE. AVH! 1 ,N)  )  GO  TO  9000 
=  E.iI  !  .  SID.  !'H,  SOAK 
IF  DID . HE . aVH( 1 ,N > >  GO  TO  9000 
S3. 1  -  -3.NHSOA.K 
42  FOR'  A T (  II- +  ,7127,17) 

K=  I 

50  CON- 1  NiJE 

IF  ;  ..OPT.  EG.  3)  GO  TO  51 
do  : 50  i<l=:,6 

150  NCD -T\ IKL  )»U 
NHECAK-0 

I  E  •.  6 , 42  < :  NCDST!  J  ) ,  J-  1 , 6  ) 
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WRI'rE(  6,43  iNHSOAKS 
Si  CONTINUE 

SO  I-i ,NP1T5 
AVH.2+I  ,N>=0.0 
A-0. 

oo  sj  o»: ,s 

A-S?DC< i )»VM<0  >*EMFC<K,0, 1  >+A 

IF< iOPT.EQ. 3 .AND . I . NE . 2  >  A-A+CSEMI 0 , I >*NCDST< 0 > 

I F  <  I  OPT.  £0.3.  AND.  I  .EQ.2)  A-A+CSEMI J , I >*NCDST< J  >+SOAK*NHSOAK 
60  CON“I NUE 

AVH: 2+1 ,N '«AVH< 2+1 ,N >+A*I000. 

TOTEM< IO+M  . I ;-TOTEM< IO+M  , I >+AVH( 2+1 ,N >/i000. 

70  CONTINUE 
RETURN 
C 

9000  PRIM  9001,  AVHd.N),  SID 

9001  TORMAT< "0VEHICLE  SOURCE  ID  -*,F6.0,*,  CONTINUATION  ID  »*,F6.0> 

Er0- 
RET'JRN 
E  'iD 
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Subroutine  oasarsi io> 

CCy.UON  /TOTS/ 

1  TOTEM'2j0r,6>,TOTEVP<  10 > , EMISS! 3 , 1 5 , 6 > 

common  /pc:m~r/ 

1  M ,  NSRCES , NMAX , NMAXE , 

2  LSRCES , NTOT 
COMMON  /SPACE/ 

1  SORCE( 2100), SOREM! 8,250) 

REA.  LUEMFC 
COMMON  /EM-031/ 

1  EGEMFCI 6 , 4 , 50 ) , PL NAME <  a ) , PPEMFC< 22,6),EMFCIN(5,6), 

2  TFEMF C( 6  > , LUEMFC <  9,6) ,AL?KA<  7 ) , 3ETA( 7  5 , 

3  FLOE  NS ( 7  )  , FLNAME ( 7 ) , AFEMFCt  2 , 6 , 6 ) , ATE MFC  (  2,6,6), 

4  C3EMFC! 6 , 6  > ,AFC3EM<  5,6) .AFSOAK.ATSQaK, 

5  AFERTH,ATBRTH,FlTFCT(7),FIXFCT( 7 ) , 

6  WRKFCT ( 7 ) 

COMMON  /DEFALT/ 

1  NF.TS. I TAPE .ACLMDY .ACLNDZ, 

2  ‘rOV5DF  ,TCHBDF,TCHODF,TCDYDF  , 

3  TCDZDF.RUOSDF,  RUT3DF  ,  Rl'VSDF  , 

4  RUH2DF , RUHODF . RUDYDF , RUDZDF . 

5  TFOZDf ,TFQDF .TFHBOF .TFHODF  , 

6  ECCKD V , EGCKDZ , ACMLPL , ARDSDZ , 

7  ATOSDV.ATDSOZ.TCDSDF .TCTSDF , 

3  FPDFLT.TDDFLT.RFDFLT.SFDFLT, 

3  PFDFL".TFDFLT.TFDYDF,MINUS(6) 

DIMENSION  ABARSI7,300> 

EOS. VALENCE  (aBAP.S!  1  >,SORCE(  1  i  ) 

IF  . IO.GT. 1 )  GO  TO  200 
C 

100  0  F I -'T  10  i 

101 .  FORMAT!  1H1,47>;,43HC.  aIRBASE  AREA  SOURCES/ 

. 1 H- . 5 IX , 35HC . 1  AIRBASE  AREA  SOURCE  GEOMETRIES  ) 

C 

110  PRINT  111 

111  FORMAT! 1 H- . 28X , 24HAREA  SOURCE  GROUND  LEVti. ,  14X  ,  16HAVERAGE  EMISSION 
.  ,  :0:-.,6rtLENG*H  /1H  , 

.»•. bH SOURCE . 10X , 31  4COOP.O  I  NATES  Cr  CENTER  AREA  <KM>,I0X, 

.  lorHEIS''*  •:  METERS  ),10X.7HOF  SIDE  ,  10X.7HDELTA  Z  /1H  , 

.  11X. 2HID . 14X.3H!  X) , 21X.3HI Y ) , 1SX.3H(Z> ,6X.2( 10X , 8H! METERS >  > / 1 H  , > 

C 

00  120  N=1.NMAX 

FFI  ‘T  112 , ABARS  ( 1 , N  ) . \ A3ARS  ( I, N) ,1*3,7) 

112  FORMAT! 1H  , F i 5 . 0 , F 1 7 . 3 , F 24 . 3 , F20. 2 . F23 . 3 , F 1 S . 2 ) 

120  CONTINUE 

r.E~jRN 

C 

200  CONTINUE 

34  FORMAT! 1 H-/ 1 40, 50X . 37HSCURCE  EMISSION  DATA  (KILOGRAMS/YEAR)  ) 

5-j  FORMAT!  1H0 .  li>v ,  9HS0URCE  ID,  1 1 X  .  A 4 , 5 <  1  5 X  ,  A 4  )  > 

So  FOR/AHiH  , 12X.F5.0. 1P6! 9X.E10. 4 >  : 

5  7  rGI  "AT (  1  Y  .  15,.'.6(  11X.A3)  ) 

53  FORMAT! In  ,  oX . IZHTOTAl  ANNUAL , 6X , 1PE 10. 4 . S<  9X , E 10. 4 ) ) 

7  .  V-  .  E  1  6  , : 

’.•P.!~E!  5,5  6  »'  RLNAME !  I  ) ,  I  *  1  ,  NPLTS  ) 

00  =2  N  =  L  3RCE  2 ,  NSRCE  S 

62  OV.ITE!  6,56  30REM?  1  ,  N  > .  (  SCREMM +2  ,  N  ) ,  I  -  1  .NPLTS  ) 

WR 1 7t< 6, 57  .  i MINUS! JX ) ,CK«1 , NPLTS  ) 

OO  26  I-i .  N  u  L  7  S 

22  ”OTEM( IO-NI, I  >*TOTEM( IC-M. I >*1000. 

WRI “E! 6,58  '  ( TOTEMt  IO*H. I  )  , I  - 1 , NPLTS  ) 

DC  27  1=1 .NPLTS 

27  TOTEM! IO+M, I '=TOTEM< IO-M, I >/1000. 
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SUBROUTINE  ABLNIV 
COMMON  /POINTS/ 

1  M , NSRCES , NMAX , NMAXE , 

0  LSRCES , NTOT 

COMMON  /SPACE/ 

1  SORCE ( 2100 ) , SGREM<  8 , 250 > 

REAL  LUEMFC 
COMMON  /EMFD3 1 / 

1  EG£MFC(6,4,50>.PLNAME<  6 > , PPEMFCI 22 , 8 > , EMFC IN< 5 , 6 > 

2  7? EMFC( 6  > , LUEMFC < 9,6) ,ALPHA( 7 ) , BETA< 7 ) , 

3  F'_DENS<  7  ) ,  FLNAME  ( 7  > , AFEMFCt  2 , 6 , 5  > .  ATE  MFC  (  2,6,6), 

4  CSEMFC(6»6),AFC3EM(6,6),AF SOAK , ATSOAK , 

5  AFBR7H , ATBRTH . F  LTFCT(  7 >,FIXFCT(7>, 

6  WR.<FC7<7> 

COMMON  /DEFALT/ 

1  NPL7S , ITAPE,ACLNDY,ACLMDZ, 

2  7CVS9F , 7CHBDF , 7CH0DF .TCDYDF , 

3  TCDZDF  , RUDSOF  ,  R.UTSDF  ,  RUVSDF  , 

4  RUHEDF ,  RUHOOF  , RUD  Y0F  ,  RUDZDF  , 

5  TFDZDr , TFQDF .TFHSDF ,TF HOOF , 

6  EGCKDY.EGCKDZ.ACMLPL .ARDSDZ, 

7  ATDSDY .ATDSDZ.TCCSOF .TCTSOF , 

3  FPDFl~.TDOFLT,RFDFLT,SFDFLT, 

9  PFDFLT.TFDFLT.TFDYDF ,MINUS(6) 

COMMON  /70“S / 

1  707EM( 20,6 ) ,707EVP( 10),EMISS(8,15,6) 

D ; MENS  I ON  ASLMS( 10. 100 > 

0 1  ME  NS  1  ON  EM(u> 

ECU  '.VALENCE  (A8LNS1  1  >,SORCE<  1  )  ) 

11-10 

12-100 

r-'-is 

•'MVrtLN  -  0 
MCV'-iLN  -  0 
Nils-  I  -  0 

c*»*«3r-  ,JP  AIR3A3E  NON -A I RC RAF 7  LINE  SOURCE  GEOMETRIES 
C  DAT.-,  SET  C0 

3676  FORMAT! A 1  ) 

READ (5,3375  JAB 1234 
READ  1 ,  NMAX 

C*"**Nr'AX  -  NO.  OF  LINES 

1  "Or.MAT (  I  *»  ) 

i F  ( NMAX.EO.0)  GO  70  400 
00  20  N»1,NMA\ 

READ  2,  (A3LNS(1,N), 1-1,10) 

2  FORMAT! 2F4.0.SF8, 2) 

C-**"’’***”-LiNE  SOURCE  INPUT 
C  aSLNGM< 1 ,N  ;-ID 

C  AL-HGM(  3.P!  . -XI  (KM) 

C  AEL‘iGM(  4 , N ;-Yl  (KM) 

C  AE  -  ,\GM(  6  ,  N  .  -Z 1  (M) 

C  AELl  GMf  6 . N i-W  (M! 

C  «E  wtGM  .  7  ,  :j  :  -DZ  (M) 

C  AiL 1GM( 8 , N ;*X2  (KM) 

C  A3L  '!GM(  9  ,  N  J  -  V  0  (KM) 

C  A2L‘GM( 1J.N)*Z2  (M) 

,-***«**„  n  yf 

c 

IF  CABINS  (  6  ,  ”1  > .  L  E  .  0 . 0  >  A3LNS  ( 5 , N J-ATPSD Y 
IF  , ABLNS  (7.N/.LE.0.0)  ABLNS  <7,N)-ATDSDZ 
20  C  0  N  "  I  N  U  E 

T ' ..  OABLNSf  10  ) 


i 
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C  DATA  SET  31 

100  READC  5,8573  ) A3  1 234 
READ  1 , NMAXE 

NMV«LN*NMAXE 

C«***NMAXE  -  NO.  OF  MILITARY  VEHICLE  AIRBASE  LINE  SOURCES 
IF  NMAXE. Eu.i';  GO  TO  200 
LSF;CES  =  NSRCES  +  1 
NSRCES-NSRCES-NMAXE 
10-2 

FRUIT  101 

101  FORMAT!  1H1 ,51>:,35H0.2  AIRBASE  MILITARY  VEHICLE  LINES) 

CAL.  VEHIC  'AELNS.IO,  SOREM .AFEMFC ,AFCSEM , 1 1 , 12 > 

CA_ _  OABLNSIIO) 

C 

C  0A7«  SET  32 

200  REAl  t 5,3672  )*B1234 
F.EAL  1  ,  NMAXE 

KC\  ■! LN’* NMAXE 

C'»»»N';,,a2  -  NO.  OF  CIVILIAN  VEHICLE  AIRBASE  LINE  SOURCES 
; NMAXE. £0.0)  GO  TO  300 
L3r CE3-NSRCES-1 
'C-RCE  S  =  NSRCE5-.'IMAXE 
10=  1 

FRI  .T  201 

201  FORMAT ( 1 H 1 , 5 1 X , 3SHD . 3  AIRBASE  CIVILIAN  VEHICLE  LINES) 
CA..  VEHIC <ABlNS, 10, SOREM, ATEMFC.CSEMFC. 1 1,12) 

CAL:.  CmSLNSiIO) 

C 

C  DA  •  A  SET  33 

300  READ(S,3S75)AS1234 
REA"  1  ,  NMAXE 

NXl  .'i*  NMAXE 

C**«*NMAXE  =  NO.  OF  OTHER  AIR5ASE  NON-AIRCRAFT  LINE  SOURCES 
IF  : NMAXE . EQ .0  >  GO  TO  400 
LSRCES-N3RCES-1 
N3RCES-NSRCES+NMAXE 
I0  =  ~ 

Vr,:-E(6,302  1 

302  FORMAT ( 1 H 1 . 50X . 37HD . 4  AIRBASE  OTHER  NON-AIRCRAFT  LINES) 
DO  .20  N-LSRCcS .NSRCES 

READ  30! , SID. ( EM<0 ) ,0-1 .NPLTS ) 

301  FORMAT (F4.0.4X.9F8.2) 

V?.:  ‘Z\  6,303  )  ;  PL  NAME  (  10  / ,  10*  1  ,  NPLTS  ) 

303  FORMAT  (  1  n-  ,  52)1 , 3 1 HEMI S  S I  ON  INPUT  (KILOGRAMS/YEAR)  /1H0, 

. 10X . 9HS0URCE  ID, 1 1X,A4,5\ 1SX.A4  )  ) 

DC  -4  !A» 1 , flP'.TS 

44  £.•"  1A)*£M<  IA  <’-1000. 

WRITE (6, 305)  SID, (EMI  IK > , IK* 1 , NPLTS > 

DO  -5  i  A* 1 . NPlTS 

45  :a ;=em<  :a  ','1000. 

305  c OR HAT l 1 H  . 1 23 . F 5 . 0, 1 P6< 9X , E 10. 4 ) ) 

DO  310  0  =  1,  UMAX 

r  '  SID.EO.ASLNS  (1,0)>  GO  TO  320 
310  COii- !  N’JE 
GC  “C  9000 
320  :-D- EM(  1  ,N  '»£  ID 

SOr.EMt  2  ,  N  •  =0 
DO  33 Z  0=1, NPLTS 
20’-.£M<  2-0  .  N  ;»EM(0  )  *1 000. 

707? M( I 0+M  ,0  ,=TOTEM< IO-M  ,0)*EM(0> 

330  CONTINUE 

CAL_  CABLNSilO) 


GC  “0  4 00 


2322  0  P.  I  i"{T  <3BE\  ,  S I D 

9W1.FSOURCriO°NUMB£Rs’)DOES  N°T  CORRESPONO  T0  ANV  0P  AIRBASE  LINE 

40?  CONTINUE 

NTOT-NPLTS+2 

WRI : E< I  TAPE )  NMAX.NTOT  , NMVHLN , NCVHLN , NXLN , NSRCES , 
i ^  ABLNS< I ,N) ,1-1 , 10)  ,M-l , NMAX ) , 

'  3QREM( I  , N  ) . ! -1 , NTOT  ),N-1, NSRCES) 

PsETURN 

£:tD 


*U5P0UTIN£  VEH IC(  GM.IO,  AVH , EMFC  , CSEM,  1 1 , 12 , SOAK ) 

COMMON  /POINTS/ 

1  M . NSRCES ,  NMAX  ,  NMAXE  ,  . 

2  LSRCE3 , NTOT 
COMMON  /TOTS/ 

1  TOTEM! 20, 6), TOTE VP  (  10  ) ,  EMI  3S(  8,15,5) 

COMMON  /DEPART/ 

1  NPl"S. ITAPE , ACLND Y .ACLNDZ , 

2  TC'/SDF  , TCHBDF  , TCHOOF  ,TCDYDF  , 

3  TCDZDF ,RUDSDF,RUTSDF,RUVSDF, 

A  RjhoDF , RUHODF , RUDYDF , RUDZDF , 

5  TFDZDF,TFQOF,TFHBDF,TFHODF, 

5  EGCKDY . EGCKDZ .ACMLPL , ARDSDZ , 

7  ATDSDY .ATDSDZ ,TC0SDF,TCT3DF , 

3  FPDFLT.TDDFLT.RFDFLT.SFDFLT. 

9  PFDFLT,TFDFLT,TFDYDF,MINUS(6> 

DIMENSION  AVH( 3 , 1 50  > , EMFC! 2 , 6 , 6 ) , CSEM! 6 , 6 ) , VM! 5  > , SPDC ( 6 ) , NCDST! 5  > 
.  CiM '  11.12) 

PRINT  1 

1  FORMAT!  1H-.61X,  13HV-EWICLE  1  .PUT ,  /  1  H0, 20X  ,  5HSPEED  ,  9X  , 
ld  =  ri“HOUSANDS  OF  MILES  PER  VEHICLE  CLASS  PER  YEAR ,  7X , 

235HCOLD  ST*RTS  PER  VEHICLE  CLASS  PER  YEAR , 3X ,  8HANN .  HOT  / 

3  1 H  . 3X,2hID,5X.6HO?TION,4X,5H!M?H>,10X,3H! 1 ) , 5X , 3H( 2 > , 5X , 3H( 3 > , 5X 
43H!  l  )  ,5X,3H( 5  )  ,5X,3H( 6  >.8X,3H( 1 >,AX,3H<  2>,4X,3H< 3 ) ,4X,3H(4) ,4X, 
52“i 5 ) , 4  X , 3  H ( 6 ) ,5X,5HSOAKS  > 

00  10  0-4.NPLTS 
10  SFCC.’ J)-l  .0 

DO  “0  N-LSRCES. NSRCES 
DC  12  0-1 ,3 

20  33CC! J  >-l  .0 

READ  21 ,SID, IOPT, SPEED,! VM< 0  > ,0-1 ,6) 

21  -OR MAT! F4.0,IA,9F3.2) 

=  =.  E  ;«T  31  , SID. IOPT, SPEED, !VM<0  ) ,  0  -  1 , 6  ) 

31  FORMAT! 1H  , 2X . F5 .0, I S . F 12 , 2 , 6X , 6F8 . 2 ) 

DO  00  J«I,NMaX 

I-  " T  D . EQ . GM! 1,0))  GO  TO  40 
30  CON” 1  HUE 
RETURN 

40  „.H  .  1 ,N  >=SID 
Av/K  2  ,  N ) =0 

i ~  SPEED. NE. 19.6)  SPUC ' 1 )=12.5*!SPEED**( -0.845) ) 

IF  SPEED. NE . 19.6  )  SPDC! 2 }=7 .0*! SPEED**! -0. 649 > > 

IF  SPEED  .  NE  .  i  9 . 6 )  SF DC < 3 > - l . 0* ( SP E E D- 1 9 . 6 ) *0 . 01 262 

is «•  I  OPT 

I?  IOPT.NE  .3  GO  TO  50 
READ  41,31  j  . !  NCDST!  0  ,0-1 , 6  ) 

41  ?0RMAT!F4. 0.614) 

=  R  •  NT  42 . ! NCDST! 0 ) ,0-1 ,6  ) 

42  r OF. MAT !  lH+,”o4.6I7  ) 

. SID.ME.AVM!  1 ,N)  )  GO  TO  9000 
READ  4 1 , S I  0 . UriSOAK 
.?  SID.NE.AVh! l.N) )  GO  TO  9000 
a?.r:~  43  ,  NHSOr.K 

43  FORMAT! 1 n ♦ , r 1 2 7 . I  7  ) 


30  •:ON"INUt 

.-i  .  OPT .  EO  .  3  GO  TO  51 
OC  1 50  1 K_  *  1 , 6 
50  NCC 0”f 1KL >»0 
N-OOAK-0 

CUTE!  6,42  )!  NCDST!  0  )  .0  =  1  ,  6  ! 


Cop7  available  to  DTIC  dce.s  nc 


WR  1 TE  C  6 , 43  ,'NHSOAKS 
5:  CONTINUE 

OO  70  I ■ 1 , NPLTS 
AVH  2*1 , N )«0.0 
A*0. 

DC  Sj 0T  J*1  ,  E 

A=3?DC(  I  >*VM(  0  )*£MFC<  K,0 , 1  >+A 

!"( IOPT . EG . 3 . AND . I . NE . 2  >  A“A+CSEM( J,I)*NCDST(«3) 

I F  (  I  OPT.  EQ.  3.  AND.  I  .EQ.2)  A-A+CSEM! J, I  >*NCDST< 0  >  +  SOAK*NHSOAK 
60  CONTINUE 

AVHt 2  +  1 ,N  )-AVH< 2+1 ,N l-A+1000. 

TOTEMt IO+M  , I >TOTEM< IO+M  , I >+AVH( 2+1 ,N >/!000. 

70  CONTINUE 
RETURN 

9000  PRINT  9001 ,AVM( 1 ,N  ), SID 

9001  FORMAT!  "0VSr.!CLE  SOURCE  ID  ■»,F6.0,*,  CONTINUATION  ID  -*,F6.0) 

<i~Or 

RETURN 

Lit* 


SUBROUTINE  OABLNS(IO) 

COMMON  /POINTR/ 

1  M ,  NSR.CES  ,  NMAX  ,  NMAXE  , 

2  LSRCE5 ,  NTOT 
COMMON  /SPACE/ 

1  SORCE(2100>,SOREM(8,250> 

REAL  LUEMFC 
COMMON  /EMFDB 1 / 

1  EGEMFC(6,4,50), PL NAME < 6 ) ,PPEMFC( 22,6) ,EMFC IN( 5,6), 

2  TFEMFC(  6  > ,  LUEMFC!  9 , 6  )  ,ALPHA(  7  ) ,  BETA(  7  ) , 

3  FLDENS! 7  > , FLNAME ( 7 ' , AFEMFC ( 2 , 6 , 6 ) .ATE MFC! 2,6,6), 

4  CSEMFC!  6, 6 ) . AFCSEM( 6.6) , Ar SOAK , ATSQAK , 

5  AFBRTH ,ATBRTK , FLTFCT! 7 ) ,F IXFCT( 7  > , 

3  WRKFCT!7> 

COMMON  /DEFALT/ 

1  NFL~S, ITAPE .ACLNDY.ACLNDZ. 

2  TCVSDF .TCHBDF .TCHODF .TCDYDF, 

3  TCD2DF , RUDSDF , RUTSDF , RUVSOF , 

4  RUHBDF , RUHODF , RUDYDF , RUDZDF , 

5  Tr DZDF . TFQDF ,7FHBDF , TFHODF , 

6  EGCKD Y  , EGCKDZ.ACMLPL  .AP.DSDZ, 

7  ATDSDY , ATDSDZ .TCDSOF , TCT5DF , 

6  F?DFLT,TDDFLT,RFDFLT,SFDFlT. 

9  PFDFLT.TFDFLT.TFDYDF -MINUS!  6) 

COMMON  /TOTS/ 

1  TO"EM< 20,6), TOTE VP! 10) . EMI SS< 8 , 15, 6 ) 

DIMENSION  AEiLNS! 10, 100) 

ECU  I  VALENCE  (ASLNS!  1  ;.SORCE( 1  )  ) 

:c  ; IO.GT.  1  )  GO  TO  200 

c 

100  WRITE ( 6 , 101 ) 

101  FORMAT ( 1H1 ,47X,43HD.  AIRBASE  LINE  SOURCES) 
WRITE! 5 . 102  ' 

102  FORMAT! 1H- , 45a , 48HD . 1  AIRBASE  NON-AIRCRAFT  LINE  SOURCE  GEOMETRIES 

,  j 
C 

110  PRINT  111 

111  FORMAT! 1H-, 1 1 X , 24HGRCUND  LEVEL  COORDINATES.5X, 16HAVERAGE  EMISSION, 
. 3CX . 24HGROUNO  LEVEL  COORDINATES . 5X , 1 6HAVERAGE  EMISSION  / 

,lh  . 5HSQURCE , SX , 1 8HOF  ONE  END  OF  LINE ,8X . loHHEIGHT  (METERS), 6X. 
,3r!V/:DTh  OF  .  oX .  7HDELTA  Z,SX,23HA7  OPPOSITE  END  OF  LINE.6X, 

. 16Hn EIGHT  <  METERS  )  /1H  , 

.4H  ID, 10X.4HX! 1 ),9X,4HY( 1 ), 12X. 10HX! 1  )  V ’ i  ) , 9X , 10HL 1 NE  (MET), 
.3X,3H<METERS),3X,4HXv2).9X,4HY!2),12X,10HX<2)  Y(2)  > 

c 

DO  :  20  N-l.NMAX 

?RI»»T  112  .ASl.'IS  (  1  ,N  ) .  ■:  ABLN3  <  I  ,N  ) .  I«3 , 10  ) 

112  FORMAT! Ih  ,F6.0,lX,2F13.3,Fl7.2,F19.2,F13.2,F16.3,F13.3,F17.2> 

120  CONTINUE 

RETURN 

r 

200  CCX'INUE 

1 IRMAT i 1 K-/ 1 H0, 50X , 37KSCURCE  EMISSION  DATA  (KILOGRAMS/YEAR)  > 

55  -  jRMAT!  i  H0,  10X  ,  9HSOURCE  ID,  1  1 X  ,  A  4 . 5  (  1  5  X  ,  A  )  > 

56  FORMAT!  1H  , 1 2  X  ,  F  5 . 0 , 1 P 6 ( 9 X , E 1 0 . X )  ) 

SF  FORMAT! 1H  . , 5X , 5! 1 1 X , a3  •  ) 

5c  rORMAT (  1 H  .  SX  . i 2 H TOTAL  ANNUAL , 6X , I  PE  10. 4 , 5 ( 9X , E 10 . 4 )  ) 

71  Jr.  I7E(  5,54  > 

WRITE! 6 ,55  )  ( PLNAME! I  ) , 1  =  1 .NPLTS  ) 

DO  52  N=LSRCES , NSROES 

62  WR I TE ( 6 , 56 )  SOREM!  I , N  )  , ( SOREM! I -2 . N > , I  =  1 , NPLTS  ) 

6. 57  i  (MINUS!  JK),UK-1,NPL"S  .• 
j-.  u6  1  =  1.  NPLTS 
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o  o 


26  T07£M(  IO+M ,  I  )«TOTEM<  IC+M  ,  I  >*1000. 
WSITE( 6, 58  )  ( TOTEM< IO+M,I  ),I-1 , HPLTS  ) 
DC  27  I-l.NPLTS 

27  TCTEMt IO-M. ! >=TOTEM< IC+M , I )/l 002. 


RETURN 

END 


1 
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o  n  o  o  *  i  o  o  o 


overlay<ensm:v,4,0) 

? R 03 RAM  ENEMIV 
COMMON  /PO I N7R/ 

1  M , N2RCES , NMAX , NMAXE , 

2  LSRCES.NTOT 
COMMON  /SPACE/ 

1  SORCE (  2100  ),SOREM(8,250) 

COMMON  /ARRAYS/ 

1  HCWRK(  10,50),  HCBRTH(  5,1  J0TJ0" ) ,  HCEVP(  3,50) 

COMMON  /TOTS/ 

l  TOTEMt  20,6), TOTE VP < 10 > , EMI SS( 8 , 15 , 6  ) 

r-:a_  luemfc 

COMMON  /EM FOB’/ 

1  ESEMFC( 6,4,50) , PLNAMEl 5 > .PPEMFCC  22 . 6  > , EMFCIN(  5,6), 

2  TFEMrC(6),LUEMFC{9,6),ALPHA<7),3ETA(7), 

3  FL3£  NO  f  7  ) , FLNAME ( 7  ) , AF EMFC ( 2 , 6 , 6  5 , ATE MFC <  2,6,6), 

4  CSEMFC(6,6),AFCSEM(6,6) ,AK  SOAK , ATSOAK , 

5  AF3RTH .ATBRTH , FLTFCT( 7 ),F1XFCT( 7 ) . 

S  WRKF  CT( 7 ) 

COMMON  /OEr ALT/ 

1  NPLTS.ITAPE,ACLNOY,ACLND2, 

2  TCVSDF.TCHBDF^TCHODF.TCDYDF, 

3  TCDZDc,RUDSDr,RUTSDF,RUVSDF, 

*  RUHEOF  ,  RUHODF  ,  RUDYDF  ,  R'JDZDF  , 

5  TFOZCF .TFQOF ,TFH30F .TFHOuF , 

5  EGCKDV  , EGCKDZ.ACMLPL  ,  AF.OSOZ , 

7  ATOSOY,ATDSDZ,TCDSOF,TCTSOF, 

3  FPOFLT.TDDFLT.RFDrLT.SFDFLT, 

9  PFDFLT.TFDFLT,TFOYDF , MINUS!  6 ) 

DIMENSION  2NPTS< 11 , 100 > . ENARS<  7 . 100 ) , ENLNS1  10,20) 

ECO, VALENCE  <ENPTS< 1 ).SORC£( 1 >  > , ( ENARSi  1 >,SORCE(  1 ) ) 

. ( ENLNS< 1  ) , SORCE ( 1  )  ) 

DIMENSION  FRCTLUO>,VM<5>,  CDSTNI 6 > . SPDC( 6 > 

C 

WRITE <6, 40) 

40  FORMAT < lHl,28(/),57X,2iHS  E  C  T  I  0  N  II  I.///, 

. 5EX.29HE  N  V  I  R  0  N  SOURCES/) 

NSRCES-0 

M«0 

MO“*NPLTS+2 

C***"NMAX  -  NO.  OF  ENVIRON  POINT  SOURCES 

SATA  SET  34 
8675  =ORMAT<Al) 

REAS (5,8675 JA61234 
r  “  A  0  1  .  N  A  X 
1  " OR MAT (14) 

IF  (  NMAX.EC1.0)  GO  TO  30 

-3“:eo=i 

i  SP.CE  S*NSRCE  3+NMAX 
1 0  =  . 

3  r. T  10 

10  -ORHAT. 1 H 1 ,45X,45riA.  ENVIRON  POINT  SOURCES) 
DO  Z3  N=LS~C£j.NSRCES 
READ  2, ( ENF-Dl  I ,N  )  , 1  =  1  .  1  1  > 

••"’'POINT  SOURCE  INPUT*"** 


£:<? ~s ■'  i  ,m  > 

2  ,  N  ) 
HN3~3< 3,  ■  . 
E ’ i ? " S < 4,N  > 


!  0 

PLMO 

>:  '  KM  > 

V  \  KM  / 
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ENP' 

"S<  5 , 

N  ) 

-  H0 

(M) 

£\r 

"S<6, 

N  > 

=  DY 

(M) 

EN*“3<  7, 

N  > 

*  DZ 

(M) 

ENP' 

"S(8, 

N  ) 

=  TS 

<  OEG . 

ENP' 

"3(9, 

N  ) 

■  V5 

(M/S) 

ENP' 

rS<  UJ 

,N : 

!  «  DS 

(  M  ) 

ENP7S<  1 1 

,  n  : 

!  =  HB 

(M) 

2  FORMAT! 2F 4 .0 , 3F8 . 2  ) 


R2AD  3 , SI D  , ' 30REM< I . N ) , I «3 , NTOT ) 
C«»**2MIS3I0NS  INPUT  (  KGH"15,'"3/ytAR  ) 

C  SO?£M< 2 ,K  ,=CO 

c  SCREMv 4 , N  >  =  HC 

C  SOF.£M<  5  ,  N  J-NO/ 

C  SOSEM<  6,N  )-  =  ART 

C  SOR£M<  7  ,N  >»SO>; 

C  SOREMi 8 , N  >*?OU  6 


SOR£M< 12,Ni«?OL  10 


C*  **  n  i 


3  FORMAK F  4 .2 . 4M.9F8.2 ) 

IF  <  S ID . NE . ENPTS( 1  ,N ) )  GO  TO  3000 
SOR£M< 1 ,N)»SID 
DC  20  I«:,NPL”S 

IO+M .  I  ,  =  TOTEM<  IO+M,  I  >  +  SOP.EM<  1+2, N) 

SORjMt  I  +2  ,N  )*SOREM<  1  +  2  ,M  . 

20  CONTINUE 
C 

CAL1-  OENEM<  10  > 

NL£  M*NP  LTS  *■  I  i 

WF'H(i^£)luriSRCES.''|!-EN,((ENPTS(I,N),I.I.ll),(SOREMU,N>, 

.  1=3 , NTuT N»i , NSRCES  ) 

CC  TO  1 za 
5-  ;i.£ f!»0 

c  WRITE(ITAPE)  NSRCES,  NLEN  .  < < EUPTS<  I,  N > ,  I - 1 , NLEN > , N- 1 , NSRCES > 

C***«ARSA  SOURCES 
C 

100  NSRCE S»3 
C  DATA  SET  35 

REACH  5,867c )A51234 
" i AO  1,1  OPT 
I "E ( 6 , 76  i 

-  0  ?  ,'1A  T  <  i  ,J  1  ,  4  ,•  X  .  4  3  h  3  .  ENVIRON  AREA  SOURCFS) 
:  !T  9 30.  IOPT 

9.*;.^  "OR,IAT<  1 H- , 52X , 26HE NVI RQN  AREA  SOURCE  OPTION, 12. 5H  USED) 

■i  -  '  I  OPT . EQ .0  ■  GO  TO  490 
CO  "0  ( 1 10,300,400 ),IOPT 
C 

C*’”»03‘;0N  1  NKAXI  =  NO.  OF  ENVIRON  STATIONARY  AREA  SOURCES 

ii.'J  READ  1.NMAX1 

IF  NMAXl.EC.il)  GO  TO  200 
2  2  r.  C  E  S  =  1 

NEr.CES“N3RC£  3+NMAX  1 
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non  o  o  n  o  o  o  o  o  o  o  o  o  <  j  o  n 


PRINT  111 

111  FORMAT! 1H-.54X.29KB.1  ENVIRON  STATIONARY  AREAS) 
DC  1  20  N--SP.CES.NSRCES 
READ  2 , t  ENARSt I ,N  ), 1-1 .7) 


•"'•"AREA  SOURCE  INPUT 


ENARSt 1 ,N) 
Ef:«RSt2,N) 
ENARSt 3 .N  ) 
e?:a-.S(4,m) 
ENARSt 5 ,N  ) 
ENARSt 5, N) 
ENARSt 7, H) 


ID 

PLMD 
X  t  KM  ) 

V  <  KM ) 

II BAP.  <  M  ) 
L  <  M  > 

DZ  ( M  > 


IF  ( ENARSt  7,N).LE.0.0>  ENARSt 7 , N )-ARDSDZ 

READ  3 , S I D , f SOREMt I , N ) , I -3 , NTOT ) 

IF  . SID.NE .ENARSt 1 ,N  )  )  GO  TO  9000 
SOREMt  1  ,N  >*SI0 

DO  120  I-i.NPLTS 

TOTEMt IO-M, I >=TOTEM< IC+K, I >+SOREM< 1+2, N> 

SOP.EMt  I  +2 ,  N  )  “SOREMt  I  +2,  N  >*1000. 

120  CGi'i  VINUE 

CAL.  OENEM! 10) 

«  — "OPTION  1  NMAX2  -  NO.  OF  ENVIP.ON  MOBILE  AREA  SOURCES 

200  READ  1.NMAK2 

••  . NMAX2 . EO.0 )  GO  TO  450 
LS.RCeS-NSRCES-1 
N  5  ?.  C  E  S  ■  N  S  R  C  E  S + N  MA  X  2 
DO  210  J»i,N?u7S 
SPDCt  0  )-*i  .0 
210  CONTINUE 
1 0  »  3 

PRINT  201 

201  FORMAT ( 1H1 ,56X,25HB.i.  ENVIRON  MOBILE  AREAS) 
pojMT  221 

221  FORMAT! 1H-. 61  >,  ,13H VEHICLE  INPUT. /1H0, 20X .5HSPEED.9X, 

.AEfi-HOUSANDE  OF  MILES  PER  VEHICLE  CLASS  PER  YEAR ,  7X , 

. 3EHC0LD  S~AR73  PER  VEHICLE  CLASS  FER  YEAR , 3X . 8HANN .  HOT  / 

.  1H  .  3X.2HID.5v.  ,6HO?TION,4X,5H(MPH>,10X,3H(  1  - ,  SX  ,  3H  t  2  > ,  5X  ,  3H  t  3  ) ,  5X , 
.  3  +  ,  5  X  .  3  H !  5  ,5X,3H<  6  )  .  9X  ,3H<  I  )  ,4X  ,3Ht  2  )  ,4v:  ,3Ht  3  )  ,4X,  3Ht  4  )  ,4X, 

.  S-i'5),  4X.Snt6  .5X.5HSOAKS  > 

DO  360  N«lSF.CE5  ,  NSRCE  S 
P.EAD  2  ,  (  E NAP.S  v  I, N >,1*1,7) 

IF  ( ENARSt 7. N  .LE. 0.0)  ENARS ' 7 , N  ) *ATDSDZ 

DO  330  0*1  .  2 
3  r  3  C ( J  '  =  1  .3 
230  30N“!NUE 

READ  2. SID. C LOST, SPEED, tVMtJ  ) . J  *  1 .6) 

PRINT  232. S I  3. CL DST. SPEED, t VM< J  )  ,0*1 ,6  ) 

222  -ORMATdH  .2X.F5.0,F7.0.F11.2,6X,6F8.2) 

IF  •  SID.NE . ENARSt 1 ,N  )  )  GO  TO  9005 
3CREMt 1 ,N  )*S  ID 

-f  .SPEED. NE. 19. 6)  S°DCt 1 ) « 1 2 . 5 • ( S?EED"*( -0 , 845 > > 

SPEED  .ME  .  1  9 .6  )  SB  DC '  2  =  7 . 0*  !  3P  E  E  D**  (  -0 . 649  >  > 

'T  .  SPEED  .*•!£.  19.6  )  SPDCt  3  )»1  -0-m  3FEED-19 .5  >"0.01262 
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o  n  o  °  n 


c-CLDST 

IF  5 CLOST . NE . 3 .0 )  GO  TO  240 
READ  23 l . S  I D . !  COSTN  (-3), 0*1, 6) 

231  FORMAT!  7F4.0) 

PRINT  233,<CD$TN< J >,0-1 ,6) 

233  FORMAT  !  1H+ . T34 , 6F7 . 1 > 

IF  ! SID . NE .  ENARS!  1 ,  N  >  >  GO  TO  9000 
READ  23 1 , S I D .  “SOAKN 
IF  x  S ID . NE . ENARS( 1 , N ) >  GO  TO  9000 
PRINT  234 , HSOAKN 

234  FORMAT! 1 H+ , 71 2S , F6 .0 > 


24A?  DO  26 0  1*1  ,  NPLTS 
SO.REM!  I-2.NJ-0.0 
DO  250  J*1 .6 

A*SR  DC ( I  / *VM( 0 >«ATEMFC!  K.O,  I ) 

IF  (CLDS3 . £0.3.0. AND. O.NE.i >  A-A+CSEMFC! 0 , I >*COSTN! 0 ) 

I F ( CLDST. EO . 3 .0. AND . J . EO . 1  )  A-A+CSEMFC! J , I >*CDSTN! 0  >+ATSOAK*HSOAKN 
SORiMt 1+2 . N  )  =  SOREM! I +2 , N )+A* 1000. 

250  COrriNUE 

TOTEM! IOtM,: !»T0TEM! IO+M.I J+SCREM! I+2,N)/!000. 

260  CON” ! NUE 

CALL  CENEMi 10  > 

GO  "0  430 


.«»«0  =  T:QN  2  NMA'<  1 


NO.  OF  ENVIRON  LAND  USE  AREAS 


300  READ  l.NMAXI 

IF  x  NI1AX1  .£0.0)  GO  TO  490 

-SR3ES-1 

M3RCES-NMA/I 

IOm~ 

-•RIOT  302 

302  FORMAT! 1H-.34X.26HB.1  ENVIRON  LAND  USE  AREA  /IH-, 

.  *-SX .  40HFRACTIONAL  BREAKDOWN  OF  AREA  BY  LAND  USE  /1H0, 

.  5 .  7HAREA  I D  .  SX  ,  1 1 HC  I TY  CENTER  .  6X  .  10HURBAN  AREA , 6X ,  1 3HSUBUR3AN  ARE 
.A.5X.  10NSEMI  -  RURAL  ,  6X ,  5  H  RURAL  , 6X . 3HCEMETARV , 6X , 4HPARK , 6X , 7hAl RPORT 

.  1 H  ? 

DO  320  N-L  Sr.CES ,  NSRCES 
R  EA  j  2. !  ENARSf  I ,  N  ) ,  1-1 , 7  ) 

READ  301 .SIO.iFRCTLU!  I ). 1*1,8) 

301  FORMAT! F4.3.AX.8F3.7 ) 

FRI.1T  303  ,  SID,  <  FP.CTLU!  I  ),I-1  ,8) 

303  FORMAT! 1 H  . F ! 2 .0, F 1 4 . 2 , F 16 . 2 , F 1 8 . 2 ,F 1 7 . 2 , F 1 4 . 2 , 3F 1 2 . 2 ) 

IF  5 1 D  .  NE  .  EN.-.RS!  1  ,  N  >  )  GO  TO  9000 

SO" ZM(  1 , H  )*SI? 

AREA*!  ENARS!  6  .  N  )**2  )’'  1  -0E-6 

IF  ■  ENARS!  7.(1  >  .LE  .0.0)  ENARS i  7,N)*ARD3DZ 

DC  220  1=1. NPLTS 

-OREM! 1+2. N  >*0.0 

00  2:0  J-1.5 

LORE M (  1+2 . N  )-50REM! I-2.N  >+LUEM‘C! J , 1  )  *AREA*F RCTL U ( 0 )* 

.  2 i00 . ' 24 . ”265 . / 1000 . 

3  if  •  j-jNUc 

I 0+M , I >=TOTEM< iO+M. I >+SOREM< 1+2. N )/ 1000. 

320  'OUTInUE 

L _  OENEM! 20  > 

GO  "0  450 

*=**0=“i:N  3  NMAXl  *  NO.  OF  ENVIRON  COMBINED  AREA  SOURCES 


•->  o  o  n  o  n  n  r>  o  o  r»  o  r>  o  o  o  o 


I?  'NMAX1  .EQ.0>  GO  TO  490 

-SRCES-l 

CSRCES-NMAXl 


401  rORi-lAK  1 H- .  55X . 27H3 . 1  ENVIRON  COMBINED  AREAS) 

DO  -10  N-lSRCES, NSRCES 
READ  2 , <  ENARS (I,N),I-i,7) 

I?  'ENARi!?.N> .LE.0.0)  ENARS( 7 , N  J-ARDSDZ 
READ  3 ,  SID .  (  SOREM!  ! ,  N  ) ,  1  -3  ,  NTOT  ) 

Ir  ! $!0 ,N£ .ENARS! 1 ,N  )  )  GO  TO  9000 

soRiM'.  i  ,n>=s:d 

SOREM! 1 ,N  )-SID 
C 

DO  -10  1 3 1  , NP  LTS 

TOTEM!  IO+M, I i-TOTEM! IO+M, I >+SOREM< 1+2, N  ) 

scr.:m<  i+2, n  j-sorem<  1+2, n 1-1000. 
i’0  cci-riNUE 

CAL.  OENEMCO- 

c 

450  NLE'i-NPL“S  +  7 

WRITE! ITAPE  >  NSRCES , NLEN , IOPT , NMAX 1 , NMAX2 , 

.  ;  ;  ENARS!  I ,Ni, 1-1,7 ).< SOREM!  I +2 , N > , I- 1 . NPLTS ) , N-l , NSRCES > 

GO  rO  500 
C 

4  30  NLE'i-0 
N*A\ • -0 
nma::2-0 

WRITE! I  TAPE  )  NSRCES, NLEM, IOPT, NMAX1 .NMAX2, ( (ENARS! I . N ) , 

.  I-1,NLEN),N  -1, NSRCES) 

C 

•"••NMAXI  -  NO.  OF  ROADWAY  LINE  SOURCES 

=03  NSr.SES»0 

DATA  SET  36 
READ! 5 , 8576  JA31234 
READ  l.NMAXl 

Ir  NMAX 1. SO. 0)  GO  TO  600 
.SICES3! 

NSRCES -NMAXI 
IO-3 

913  rORMAT( 1H1 .44X.43HC.  ENVIRON  LINE  SOURCES) 
WRITE (6. 91 8  ) 

3  s I  NT  501 

501  cORMAT( 1H-/1H0,55X,26KC.1  ENVIRON  ROADWAY  LINES) 

■==.:  ; T  221 

Du  510  N-LSRCES. NSRCES 
READ  2 , <  ENLNS ! I, N), 1-1,10) 

••-•LINE  SOURCE  INPUT 


■S(  1  ,N  ) 

=  10 

•  S  (  2  ,  N  ) 

=  PLMD 

‘•S!  3  ,  il  ) 

=  XI 

<  KM  ) 

3  (  4  .  N  ) 

—  *.•  i 

(  KM  ) 

■i  3  (  5  ,  N  > 

=  ri 

(M) 

S'.  6  ,  "t  ) 

-  V 

(  M  > 

IS! 7 ,N  ) 

-  DZ 

!  M  ) 

!  S  (  0  ,  N  > 

»  7.2 

(  KM) 

3  (  9  ,  N  ' 

*  Y2 

!  KM  ) 

'IS!  10, N) 

-  Z2 

(  M  , 

*-r* 


;  ENLNS!  5.3.-.  LE.0.0)  ENLNS  <  6  .  N  ) -ATDSD  Y 
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o  r  >  o  o 


T-  •  ENLNS(7,N).LE.0.0>  ENLNSt  7 , N  )-ATDSDZ 

r 

::  530  0-1,6 

3=dd:u'-:  .? 

53.3  C :•'<"! NUE 

c 

READ  2.S:D.CL0ST,SPEED,< VM<J  >.0-1 ,6) 

I  NT  232, SID. CLDST, SPEED, <VM<0  >.0-1,6) 

IP  (SID. NE. ENLNSt l.M))  GO  TO  9000 

scf.em:  i  ,n)-sid 

If  <  SPEED.  .IE,  19.6)  SPDC(  1  >-12.5-(SPEED**(-0.845>> 

I ?  .SPEED. NE. 19. 6)  SPDC< 2 )-7 . 0" ( ScEED«"t -0 . 649  ) ) 

I-  (SPEED. NE. 19.6)  SPDC(  3  >- 1 SPEED- 1 9 . 6  >"0 .01 262 
C 

K-CuOST 

IF  CLDST. NE. 3.0)  GO  TO  540 
READ  231 ,3  ID  . !  CDSTNtU  >  ,0-1 ,6) 

?RMT  232.'CDSTN(0>,0-1,6) 

IF  ! SID.NE.ENLNSt 1 ,N)  )  GO  TO  9000 
READ  231,310 . HSOAKN 
If  . SID.NE .ENARSt 1 ,N)  )  GO  TO  9000 
=  -!;■: 7  234,  HSOAKN 


540  30  310  1=1. HPLTS 
SOREMt  !+2,,» '*0.0 
DC  oS0  0-1.6 

A  =  3  =  0C<  I  )  -VM* 0 >«ATEHFCC  K,0, 1 ) 

-  . CLDST . EQ . 3 .0 . AND . J . NE . 1 >  A-A+CSEMFCt  0 . I )*CDSTN( 0 ) 

ir( C LOST. EQ. 3.0. AND. U.EQ.l )  A-A+CSEMFC( 0 , 1  )-CDSTNt 0  )+ATSOAK*HSOAKN 

SOF.EMt  I  *2  ,  .V  /  -SOREM(  I+2 ,N >+A*1000. 

553  ;CM“ I NUE 

-CTLMI  IO-M , I ) -TOTEM!  IO+M, I )*SOREMt I +2 , N )/ 1000 . 

51//  CON  7 .  NUE 

~A‘,  _  OENEMi  10: 

••’•■NMAa.'  -  NO.  OF  NON-ROADWAY  LINE  SOURCES 


DATA  SET  37 

500  F. !A0(5,8S75  JAS1234 
READl . UMAX 2 

IF  NMAX2 .£0.0)  GO  TO  650 
.  S'.CES-NSRCES*  1 
N3R0ES-NSRCES*NMAX2 

;  0  =  7 

p « :  it  60i 

601  FCfi  tAT!  1H1 .53X.30HC.2  ENVIRON  NON-ROADWAY  LINES) 
DO  a! 0  N*lSr.CES,NSRCES 
READ  2,<  EN.NSi I ,N ) , 1-1 . 10) 

i:  ENL.v:«-  o.N  •  .LE  .0.0)  ENLNSt  6,N  J-ATDSDY 

ENLNSf  F.N.'.L£.0.0)  E  MLNS  (  7  ,  N  ) -ATDSDZ 

3  EAD  3 , SI  j . ' ?OREM<  I .N  ) , 1 -3.N70T  > 

IF  SID.NE.ENLNSt  1,N))  GO  TO  9000 

DC'F.EMt  1  .  M  ;»S!D 

IF  NPLTS.EQ. >0)  READ  3 , S I D , SOREM( 1 2 , N  ) 

-C'.’.EM*.  i  ,  N  '  *5  I  0 

::  510  i=i . nf its 

TC'rEM;  !0+M. I  ;=TOTEM(  IO-M,  I  )  +  SOREM(  I  +  2.N  > 

DDFlr'  I*2.N  I*DOREM<  1+2.’!  )*1000. 

s:.:  nve 


Copy  available  to  DTK,  does  not 
permit  fully  legible  reprc-- 
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:c 


CAli.  CENEM'IO* 

C 

Ss~  IF  :  NSRCES.EQ.j0r>  GO  TO  69j9 
N‘_SN*NPLT3~ij0f 

ys;TE< I  TAPE;  NSRCES , NLEN , NMAX 1 , NMAX2 , 

ipNbl!^f  i«n>-I-1.1*MSOREM<  I+2,N),I»1,NPLTS),N-1,NSRCES) 

“‘J  «  .0*> 

c 

690  Nj.IN»j0r 

irt5?  .’■"2?*5IfeSkl?  ■  "•“X1  •  ‘  ‘  . 

723  CiC  TO  710 
3 222  S?.I NT  9001.  S!0 

9001  FORMAT! "^CONTINUATION  ID  *,F4.0, 

*  oofs  N0T  AGREE  WITH  PREVIOUS  CARD.*) 

1)  :  Or 

71.0  CCVINUE 

:  :-.:t.vrn 

.  •u> 


COOT  available  to  DT1C  does  oat 
permit  fully  legible  reproduce 


« 


I 


i 
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SUBROUTINE  OENEM(IO) 

COMHON  /POINTF./ 

1  M  .  NSP.CES  ,  NMAX  ,  NMAXE  , 

2  LSP.CEE.NTOT 
COMMON  /SPACE  •' 

1  SORCE i 2100 ) , SOREM! 8 , 250 ) 

COMMON  /TOTS / 

1  TOTEM' 20,6>,7OTEVP< 10 ) . EMI SS(  8 , 1 5 , 6 ) 

P.EAL  LUEMFC 
COMMON  /EMF931/ 

1  EGEMFC ! 6 , 4 , 50 ) , PL  NAME! 6>,P?EMFC!22,6),EMFCIN(5,6), 

2  7FEMFC(o),LU£MFC(9,S>,ALPHA<7),BETA(7>, 

2  FuDENS! 7  ) , FLNAME <7),AFEMFC!2,6,6) . ATEMFC! 2 , 6 , 6  > , 

4  CCEHFC!6,6),AFCSEM< 6,6) , AFS3AK , ATSOAK , 

5  AFSRTr ,ATBRTH , FLTFCT! 7  > , F IXFCT! 7 ) , 

•i  \i°KFC~<7) 

COMMON  /DEFALT/ 

:  NP'.~3.  ITAPE.ACLNDY.ACLNDZ. 

2  TCVSDF ,TCHBDF.TCHODF,TCDYDF , 

3  TCDZOF ,RUOSOF,RUTSDF,RUVSDF, 

4  RUABlJt  ,RUHODF  .  RUDYDF  .  RUDZDF  , 

5  TFOZDF ,TFQDF .TFHBDF .TFHODF , 

6  EGCKD Y . EGCKDZ, ACMLPL , ARDSDZ , 

7  ATDSDY.ATDSDZ.TCDSDF .TCTSDF , 

■3  FP  DF  L"  ,  TDDF  LT.  RFOFLT,  SFDFLT, 

3  PFDFL",TF0FLT.TFDYDF.MINUS!6> 

DIMENSION  ENF“S( 11 , 100 ) , ENARS<  7 , 100 ) , ENLNS< 10,20) 

EQUIVALENCE  ( ENPTS! 1  > .SORCE! 1  )  i . i ENARSC 1 ) , SORCE! 1 > ) 

. ( ENLNS< 1  )  ,SORCE( 1  )  ; 

I c  i IO.GE.5:  GO  TO  600 
IF  , IO.GE .2)  GO  TO  200 
100  a  5. 1  )T  101 

10:  FORMAT! 1H-'1H0.63X.1 1HSOURCE  DATA  /1H0, 

.  ■,-3X.5HSTACr.,C‘*X,  5  H  STACK  ,  8X  ,  5  H  STACK  ,  7X ,  5  H  STACK  .6X.3HBUILDING/1H  . 

. 5X . 5HSOURCE . 2X , 5HPL  UME . 3X , 1 1 HCOQRD I  NATES  ,  10’/  .  6HHE  IGHT,  6X  ,  7HDELTA  Y 
.  .  S'.<  .  7HDELTA  Z  .  7X  ,  4HTEMP  ,  8X  .  3h VE LOC  ITY  ,  4X  .  3HD I AMETER .  5X  ,  SHHE  I GHT/ 

.  iri  ,  7X.2H  ID.  sX.4HFLAG.6X,  2H<  !<),9X.3H(  Y>,7X,8H<  METERS  ).5X, 

. 3: i(  METERS ).5X.8H( METERS .',6X,3H! <CAL >, 7X ,7H< M/SEC >, 2 C 4X , 6H< METERS > > 

21  -QRMATUH  .  6X  .  F5  .0 .  F7 .0 , 3F  1 2 . 3 , 4F  1 3 . 3 , 2F  1 2 . 3  > 

CO  L'2  N-LSRCES.NSRCE3 

22  U  - ;-£<  6 , 21  )  i  ENPTS(  I  ,  N  ) .  I  *  1 , 1 1 
150  QOiriNUE 

3-'.  =CR,1AT(  lH-/ln.0,50X,37HSOURCE  EMISSION  DATA  ( KI LOGRAMS/ YEAR )  ) 

S3  FORMAT ! 1H0.10X.9H3OURCE  I D , 1 1 X , A4 , 5< 1 SX , Ai ) ) 

36  : j" MAT ! 1 H  . C2X.F5 .0. l?6i 9X.E10. 4  )  ) 

ST  FORMAT (  1  H  ,  16X.6!  11X.A8.'  ) 

Li  "ORMATIIH  oX , 1 2HTOTAL  ANNUAL , 6X , 1 P E 10 . 4 , 5 < 9X , E 10 . 4 > > 

7 i  V?I~E'6,54> 

I  “E  <  6 , 55  ■  r’LNAMEl  I  ), 1=1, NPLTS) 

,  -  .  «  L  S  ?  C  r  "  N3RCE  5 

6  2  WF  :  “i  <  6 , 53  >  SOREM!  l.N>.(  SCF.EiU  I  *2 . N > , I» 1 , NPLTS > 

V?  . "E  <  6 , 57  >  \  MI  HUS<  Oil  >  .OK*  1  .NPLTS) 

CC  25  I-i..X?L“S 

22  “OT1M1 IO-M. :  ;=TOTEH: IC  +  M , 1  •*1000. 

V  i. "E< 6,58  ■  ■ rOTEM!  IO*M , 1  )  .  I  =  1 , NPLTS  ) 

20  27  I=:.NFL~S 

2)  TOTEM!  1 0  +  M . I  >*TOTEM< IO  +  M.I  )/1000. 


0  190 


2*'  rOPMAT(  1H-/IH0,63X,11HSOURCE  DATA/1H0, 

.  L5X  . 24HARSA  SOURCE  GROUND  LEVEL , 14X, 16HAVERAGE  EMISSION, 10X.6HIENG 
.TK/1H  ,  9X , 6 H SOURCE ,  10X , 3 1 HCOORDI NATES  OF  CENTER  AREA  (KM),10X, 

. i 3HHE IGHT  l METERS  > , 10X  , 7HOF  SIDE, 10X , 7HDELTA  2  /1H  , 

. ilX.2HID,14X,3H(X),21X,3H( Y  ), 18X,2H(2),6X,2( 10X , 8H( METERS >>/ 1 H  , > 

260  N*L  SRCES  ,  NSRCES 

PRINT  253,  ENARS( 1 , N ) . <  ENARS ( I . N  > , I »3 , 7  ) 

253  FORMAT < 1 H  , F 1  a . 0, F 1 7 . 3 , F24 . 3 , F 23. 2 , F2 1 . 2 , F 1 8 . 2 ) 

260  CONTINUE 

GC  ~0  150 

500  8RINT  601 

6»;  FORMAT  <  1H-  ,  3S>; .  1 1 HSOURCE  DATA,  /IH0, 

. 1 1 X . 24HGROUND  LEVEL  COORD  I  NATES , 5X , 1 6HAVERAGE  EMISSION, 

. 23X , 24HGROUND  lEVEL  COORD  I  NATES . 5X , 1 6HAVERAGE  EMISSION  / 

.lh  . 5HSOCfc.CE .EX , 1 8 HOF  ONE  END  OF  L I NE , 8X , 1 6HHE IGHT  (METERS), 6X, 

. BHWI DTH  OF , EX . 7HDELTA  2.6X.23HAT  OPPOSITE  END  OF  LINE.6X, 

.  ,  5.-ir-£  I GHT  (  METEP.S  )  /1H  . 

,4K  ID,10X,4HX< 1 ),9X,4HV< 1  ) . 1 2  X , 1 0H  X ( 1 >  Y ( 1 > , 8X , 10HL I NE  (MET), 

.3X,QH(METERS),aX,4HX(2>,9X,4HY(2),I2X,10HX(2>  Y(2)  > 

DO  660  N-lSRCES,NSRCES 

PRINT  653,  ENLNS< 1 ,N ) ,<ENLNS( I ,N >, I»3, 10) 

653  FORMAT ( lh  ,F3,0,1X,2F13.3,F17.2,F19.2,F13.2,F15.2,F13.2,F18.2) 

660  CCN-INUE 

GO  "O  150 

190  RETURN 


C)  >  J 


OVERLAY <  LAST ,5,0) 

=ROGRAM  LAST 

*  PS1NT  SOURCE  INVENTORY  SUMMARY 
DIMENSION  SUMEMI (4,6) 

PRINT  TITLE 

V»'R  I “E  <  6  ,  i  ) 

FORMAT!  141 T23</),58X. 

1  "SECTION  I  V*/ 

2\ / ) , 51X , 

"SUMMARY*) 

ZERO  ACCUMULATORS 

DC  :  J0T  IP-1,  NPLTS 
DC  1 3  IC-1 , A 
SUM2MI  (  IC,  I?  5-jBT. 

CONTINUE 

PRINT  METEOROLOGICAL  SUMMARY 
CALL  MtTSUM 

PRINT  TEMPORAL  DISTRIBUTION  FRACTION  SUMMARY 
CAL.  TDFSUM 

PRINT  AIRCRAFT  EMISSION  SUMMARY 
CALL  ACESUM! SUMEMI > 

=RINT  AIRBASE  EMISSION  SUMMARY 
CALL  ABESUM< SUMEMI ) 

PRINT  ENVIRON  EMISSION  SUMMARY 
CALL  ENE3UMI SUMEMI ) 

PRINT  TQTAl  SUMMARY 


ooo  n n  o  o o  o 


SUBROUTINE  METSUM 

*****  PRINT  METEOROLOGICAL  SUMMARY 

COMMON  /ANNMET/ 

1  T BAR .ADD , P , PA, 

2  WSBAR , DTBAR .AMCBAR 

***  PR  I  'iT  SUBTITLE 

WC.:~E<6, 1) 

1  FORMAT ( i H 1 / *JeT“: 1 
1  InST.BlX, 

:  METEROLOGICAL  DATA  SUMMARY*) 

*»*  PRINT  DATA 

VRITEC6.il )  TEAR, ADO, PA. VS3AR, DTBAR 
il  FORi'iATC  IUS/IH3/ 

1  1 Htf , 28X , 

1  -AVERAGE  ANNUAL  TEMPERATURE  (DEGREES  F >* ,32< * . • > , F 1*. 2/ 

2  1 H0  28 X 

2  -ANNUAL 'degree  0AYS*,52(*.*),Flfl.2/ 

3  1H0.28X, 

3  -PRESSURE  ALTITUDE  (HUNDREDS  OF  FEET )• , 34( * . * ) , F 1*. 2/ 

4  1H0T.28X, 

4  -AVERAGE  ANNUAL  WIND  SPEED  (METERS  PER  SECOND )» , 2S( " . - ) . F 10. 2/ 

c,  -  ?  g  ^ 

5  -lUlLY  AVERAGE  TEMPERATURE  VARIATION  (DEGREES  F  )*,  23(  *.*),“  1J&.  2  ) 
=  E“'JFvN 

EiiC 
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o  o  o 


SUSROUTINE  TOP  SUM 

c 

C*««-*  PRINT  temporal  distribution  fraction  summary 

c 

INTEGER  ACNAME .EGNAME , ENGNO 
REAL  LNDSPD 
COMMON  /ACEDB 1 / 

1  ACEMFC!  8,10,6)  .ACNAME  (  50 ) ,  EGNAME  <  50 ) ,  ENGNO(  50,2), 

2  ASCNT i <  50 ) , ASCNT2( 50 ) , TX I SPD( 50 ) , LNDSPD! 50  > , 

3  A?5FD:<50),COHT1I  50>,APSPD2<50).TOSPD<50>, 

4  CQSr  C 1  (  50)  ,COSPG2<  50  )  ,  SRTUPT(  50  > ,  DSCNT1  <  50) . 

5  EGCHKT (  Sj0T  )  .  SHTDMT (  50  ) ,  DSC'IT2(  50)  .APPHT, 

6  A~FH“2( 50  >  ,  CLMBHT  ,  TOWT <  50  ; 

COMMON  /ACE DSC/ 

1  NAC'i'Y5  ,  NRNWYS  , NPKAR ,  IEGFLG, 

2  I ACTYP <  8 ) ,ANNARR! 8  > .ANNDEP ( 8 ) ,ANNTGO<  8  ) , 

3  ARRFCN! 24 , 6  ) , DEPFCN! 24 , 6  ) , TGO( 3 , 4  ) .  D I SRNW<  6 ) , 

4  RNUY  (  7 , 6  > .  IUSW0<  20.  S  ) ,  RMWYARC  8,6',.  RNWYDP  <  3 , 6  > , 

5  mCc:JEl(  3  )  ,ARF1VT<  8  i , D  P  F  L  V7 (  8  )  ,ACSP  IL(  8  ) . 

6  ARS'/EM(  6,8,5).  DPSVEMt  6,3,5),  NIBTTf  6  ) ,  N I BSEGC  8,6), 

7  IIBSEG(16,8,6),!DIBTW(8,6.',  TTARF  R  (  3 . 8 , 6  ) ,  NOBTTI  6  ) , 

3  NOSSEG ( 3,6) , lOSSEGi 16,8,6  > , I DOBTW! 3 , 6 ) , TTDPFRC  3 , 8 , S  ) , 

9  NPASQ' 6) , IDPRKA! 6 ) , PAREA<  5,3,3!  . I D I BPAt  8,6), 

♦  IDCB?A<8,6),NLSEGS,ACLNSGC 12.25) 

REA.  LUEMFC 
COMMON  /EMFOEI/ 

1  EGEMFC { 6 , 4 , 50  )  ,  PL  NAME  I  6  ) , PPEMFCi  22 , 5  > ,  EMFC I  N<  5 , 6  > , 

2  7r EMFC( 6  ) , LUEMFC! 9 , 6  > .ALPHA! 7  ) , BETA( 7  > , 

3  FLDENS( 7 ) , FL  NAME (7),AFEMFC(2,6,6>. ATEMFC( 2,6,6), 

4  CSEMFC!  6,6 ) ,AFCSEM<  6,6  )  ,AF SOAK, AT SOAK, 

5  AFBRTrl  .ATBRTH ,  FLTFCTf 7 ) . F I XFCTi 7  )  , 

3  WRKFCT ( 7 ) 

COMMON  /DS7RBT / 

1  ACMO!  13, S0)  ,ACDY!2,S0).ACrlfU2*,S0),VHMLMO!  13), 

2  VHMLD Y ( 2  ) , VHMLHR( 2  4  > ,CVA3MQ( 12), CVABD Y( 2  ) , 

3  C V A E H P. (  24  )  ,CVENMO<  13  >  .CVENDY!  2  )  ,CVZNHR<  24  ) , 

4  FLMO( 13,7),FLDY(2,7),FLKR(24,7) 

*•"  PRINT  SUBTITLE 

WR"E(6, 1000) 

1000  ; OR MAT!  1H1  ,  25'-: , 

I  -3.  TEMPORAL  DISTRIBUTION  F  RAC  T  * , 

1  *:ON  SUMMAR  Y*/ 

2  1H  ) 

vr:_e<  6, i B9sn 

WRITE!  6.  IBS'.  >(11,11-1.24) 

1001  FORMAT! 1 H- , 43/ . 40HHOURL Y  DISTRIBUTION  OF  AIRCRAFT  ACTIVITY  /1H 
.9*  I RCRAF  T  .24X5) 

JO  5001 J  00  =  1  .  flACTYP 
Ll-  ACT / 1’ '  00 

50.70  L'r:I“E(  S,  l!JJC  AC  NAME  <  LL  i ,  < ACHR<  KK.LL  >  ,KK=1 ,24  > 

1002  FORMAT <  1H  . . X.A8.1X,24( 1X.F4.3)) 

U  r  I  “  E  (  5  ,  i  0.U  3 

1003  FOP  :AT(  1H- .  48V,  .40HWEEKLY  DISTRIBUTION  OF  AIRCRAFT  ACTIVITY  /IH 
. -7/ . 2HAIRCRAFT. 10X , 7HWELKDAV, 10X . 7HVEEKEND > 

dc  3002  oj  =  :.;;acty? 

l.-  -CTYP(JO) 

3002  VP.  i  ~E(  6, 1004  : ACNAME  (  L L  ) .  (  ACOv<  KK  ,  LL  ) ,  KK-1 . 2  > 

1004  r CRMAT  (  l  H  .<)?;.  .A8.F15.3.F17.3) 

WR I "E ' 6 , 100=  ,111,11-1.12) 

1003  FC.':  Alt  1,4- .  .ic.: .  41HM0NTHLY  DISTRIBUTION  OP  AIRCRAFT  ACTIVITY  /1H 
.4),  .  3HA  IRC  RAFT.  18,11110) 
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DO  6003  OJ-l.NACTYP 
uL*:ACTYP! JO ) 

60.53  WRirr; 6, 1006  )ACNAM£  (  LL  ) ,  <  ACMO!  KK.LL  )  ,KK>1  ,  12  ) 

1.00=  FORMAT! IH  ,4X.A8,F9.3. 11F10.3) 

WRITS! 5 , 1009  X  I  I , I  1*1 ,24  > 

1003  FORMAT  (  H  -  ,  44X  ,  43HHOUR.L  Y  DISTRIBUTION  OF  MILITARY  VEHICLE  ACTIVITY 
. /ih  , 10X , 3415  > 

WRITE! 6 , 6J07  ><  VHMLHR! !I), 11*1, 24) 

6007  FORMAT ( 1 H  , 10X , 24! 1 X , F4 . 3 > > 

VRI“s( 6,6008  ) 

5003  FORMAT! 1 H- , 4iX , 48HWEEKL Y  DISTRIBUTION  OF  MILITARY  VEHICLE  ACTIVITY 
./IH  , 55X , 7HWEEKDAY , 10X , 7HWEEKEND ) 

WS I“E( 6 .6010  X VHMLDY! II  ) , II*  1 ,2) 

3010  -  OPJ-'AT (  1  H  ,rSl  .3.FI7.3  > 

WRITE! 6,601 1 X  1 1 , I I-I , 12  > 

5011  FORMAT! 1H-, 43X. 49HMONTHLY  DISTRIBUTION  OF  MILITARY  VEHICLE  ACTIVIT 
.  r/i-S  .  12X  ,13.11110) 

6,6012  X  VHMLMOi  II  >,11-1,12) 

50 1 Z  FORMAT ( 1 H  .12X.F9.3.11F 10. 3 ) 

WP.I"E!  6 ,6014  <  II  ,  I  !•’  .24  > 

6014  FORMAT! IH-, 44;!, 48HHOURLY  DISTRIBUTION  OF  CIVILIAN  VEHICLE  ACTIVITY 
.  /  .  ri  .  10X  ,  24  I  5  • 

WRITE!  6 ,6016  MCVA3HR!  1 1  )  ,  1 1*1 .24  ) 

6016  FORMAT! 1H  . 10X , 24 ( 1 X , F 4 . 3  i  ) 

WfiI“E<  6,6018.' 

6013  FORMAT! 1 H- , 44X . 48HWEE.CL Y  DISTRIBUTION  OF  CIVILIAN  VEHICLE  ACTIVITY 
.  -  1-i  ,  56/  .  THWEEKDAY,  10X  ,  7HWEEKEND  > 

WRITE! 6,6020)1 CVA3DV! 1 1 >, 1 1 - 1 ,2 ) 

6020  FORMAT! IS  . F 6 1 . 3 , F 1 7 . 3  ) 

WRITE!  6,6022  X II , I  1-1 . 12  > 

6022  FORMAT! 1H-, 43a, 49HMONTHLY  DISTRIBUTION  OF  CIVILIAN  VEHICLE  ACTIVIT 
. V/IH  , 12X, IS. 11110) 

WR  I  “£(6.602  4  .■  (  CVABMO<  1 1  ) ,  1 1-1 ,  12  ) 

6024  FORMAT! 1H  , i 2X , F 9 . 2 , 1 1 F 10 . 3  ) 

WF  1“E!  6 . 5026  X  1 1  , 1 1*1  ,24  ) 

6026  FORMAT! 1 H- . 4oX , 47HHOURL Y  DISTRIBUTION  OF  ENVIRON  VEHICLE  ACTIVITY/ 
. IH  . 10X.24IE : 

WRITE!  6,6025  XCVENHR! I  I >. II«1 ,24  ) 


602  3 
6030 


5032 

5034 


503  E 
5038 


5050 

604  2 


o0*.4 


5046 

6048 


6050 


FORMAT! 
W  A :  -  E  <  6 
FORMAT! 
IH  . 56X 

vr:“e<  6 

FORMAT! 
WR!“E< 6 
FORMAT! 
/ I H  .12 
V.»RI“E!  6 
FORMAT ( 
WR I“E! 6 
F Or  vAT ( 
lr  . 10X 
.0  .040 
W  r  '  ~  {  5 
FORMAT ■ 
W  I  -  E  (  6 
FORMAT! 
IH  . 49X 
00  .046 
V.’r.  I  “E  (  6 
cORMAT( 
WP.  I~E(  6 
FORMAT! 
/IH  ,4X 


IH  . .0X.24! 1a,F4.3)) 

, 6020  > 

IH- . 45X , 47HWEEKLY  DISTRIBUTION  OF  ENVIRON  VEHICLE  ACTIVITY/ 
, 7HWEEKDAY , 10X , 7HWEEKEND  ) 

, 6032 ) <  CVENDV! I  I  M 1-1  ,  2  ) 

IH  ,F6l .3.F17.3  ) 

, 6024 )( 11,11*1.12) 

1H-,44;:,48HM0NTHLY  DISTRIBUTION  OF  ENVIRON  VEHICLE  ACTIVITY 
X , 13. 1 1  I  10) 

,6036  XCVENMO!  1 1  )  .  I  1*1  ,  12  ) 

IH  , 12X.F9.2, I1F.0.3) 

.5033  X 11,11=1.24) 

lh- . 45X,47HHOJRlY  DISTRIBUTION  OF  FUEL  PROCESSING  ACTIVITY/ 
.2413  / 

V  J  =  1  ,  / 

.  60-2  iFLNAME! JJ ),(FLHR<II,JJ),i;*l,24> 

IH  .4X.A4.4X.24! 1X.F4.3) ) 

,  6.U  -  -  ' 

1H-.45X.47HWEEKLV  DISTRIBUTION  OF  FUEL  PROCESSING  ACTIVITY/ 
. 4HFUEL . 10X , 7HWEEKDAY . 10X , 7HWEEKEND > 

00=1.  V 

,  304  8  .'FLNAME  !  J 0  >  .  '  F L D  V !  I  I  ,  JO  )  ,  I  I  *  1 , 2  ) 

IH  .49X.A4.F15.3.F17.3) 

, 505 0  X  11,11*1.12) 

IH- , 44X , 48HMONTHL Y  DISTRIBUTION  OF  FUEL  PROCESSING  ACTIVITY 
, 4HFUEL ,4X, 18 , 1 1  I  10) 


SUBROUTINE  ACESUM< 3UMEMI > 


**  PRINT  AIRCRAFT  EMISSION  SUMMARY 

DIMENSION  SUMEMI ( 4,6) 

INTEGER  ACNAME .EGNAME .ENGNO 
REAL  LNDSPD 
COMMON  /ACEDB1/ 

!  ACEMFC( 8 , 10. 6  > . ACNAME < 50  > . EGNAMEI 50) , ENGNOI 50,2), 

2  ASCNTi i 50 ) ,ASCNT2( 50 ) , TX I SPD ( 50  > ,LNDSP0< 50) , 

3  AP3FD’ ( 50) ,CQHT1( 50) ,APSPD2( 50 > , TOSP D ! 50 ) , 

4  COS? D 1 ( 50 ) ,COSPD2(30 ) , SRTUPT<  50) ,DSCNT1 1  50 > . 

5  EGCHf'Ti  50  >  .SHTDMTC  50)  ,  DSCNT2I  50  )  ,APPHT, 

6  A?aHT2(50>.CuM8HT,TOWT(50) 

COMMON  /A CEDES/ 

1  NAC7VF  .  NP.NVYS  -  NPKAP. ,  I  EGF  LG  , 

2  IAC-Y'J  !  3  )  ,  ANNARRl  8  )  .ANNDEP  (  8  )  ,  ANNTGOC  S  )  , 

3  ARRFCHI  24,5 ) ,  D  E  •’  F  C  M  < 24 , 5 ) . TGO( 3 , 4  > , D I SRNVC 6 ) . 

4  RNVY  r  7  .'6  ) ,  I  US  WO !  20,6).  RNVVARI  8,6),  RNWYDP  (  8 , 6  ) , 

5  AC'lEl' 8 ) ,ARF LVT( 3  ) , DPFL VT( S  i . ACS? I L <  8  ) , 

6  ARS75H(6,8,5 J , DFSVEMf 6 , 6 . 5 ) , N IBTT< 6 > , N I BSEGI 8 , 6 ) , 

7  I  I  3  S  E  G  <  15,3,6  > , I D I BTW<  8 , 6 ) . TTARFRl 3 , S , 6 ) , N03TT( 6 ) 

8  NCSSEG ( 6,6  >, I03SEG( 16.8.6  ' , IDOBTWC  6 , 6  > . TTDPFRI 8 , 8 

9  NFASQv  6  )  ,  I  DP  FA' A,  S  ) ,  PAREA(  6,3,3),IDIBFA!3,6), 

+  I  j  UsPAt  3 , 6  )  •  i'iLSEGS  ,  ACLNSGl  12,25) 

REAL  LUEMFC 
COMMON  /EMFDB1 / 

1  tGEMFC (  6,4,50)  ,  PL  NAME  (  o  ;  , PPEMFCl  22 ,5  )  ,EMFCIN(  5,6  ) 

2  TFEMCC(  6  ) ,  L‘J£M"C(  9.6) , ALPHA!  7  ) .  BETA(  7  ) . 

3  F LOINS <  ?  )  ,FLNmME( 7  ) . AFEMFCi 2 , 6 , 6  ) . ATEMFCC  2,6,6) , 

4  CSEMFC<  5,6) .AFC :EM< 6,5 ) .AFSOAK.ATSOAK, 

5  AF3RTH . ATBRTH , F lTFCTi 7 ) . F I XFCT<  7 ) , 

6  VR<r CT( 7 ) 

COMMON  /DEFALT/ 

!  N.-_“S.  ITAP  t  , ACLHDY , ACLNDZ . 

2  TCVSDF .TCHBDr ,TCHODc .TCDYDF , 

3  TCDZDF.RUDSDF.RUTSDF.RUVSDF , 

4  RUABDF  ,  RUHODF  .  R'JDYDF  ,  R'JDZDF  , 

5  TrOZDF  ,TFC!2F  .  TFHEDF  ,TFHODF  , 

6  EGCKDY .EGCXDZ.ACMLPl .APDSDZ, 

7  A7DSDY , ATDSOZ . TCDSOF , TCTSDF , 

8  F’lFLT.TODFLT.RFDFLT.SFDFLT. 

3  PFDFLT.TF DFLT.TF DYDF ,MINUS( 6) 

COMMON  /"rCT3 / 

1  TOTEM' 20,6  )  .TOTE VP < 10 ) , EM ! SSI  8 , 1 5 , 5 ) 

3  I  ME  NS  I  ON  ACEMI  6  .•  .TMiSSI  15,6) 

DIMENSION  OPNAMI  3, 16 . 

DAT/  OP NAM 


o  o  o  ri  o  non  o  o  o  o  o  ( >  o  o  o  o  o  o  oooon  o  o  o 


j  ' TOTA '  ,  ' L  '  ,  ‘  1  / 

DATA  LINE/' - */ 

901  FORMAT (  1H0,  1 5 X  ,  "OPERATION*  ,  1 2X , S( A4 , 1 2X ) > 

902  FORMAT! 1H  ) 

903  rORMATUH  ,  1 3X  ,  3A4 , 8X  ,  1  P  .  6  (  E  10 .  4 , 5X  )  ) 

904  FORMAT (  1  H  ,  34).’ ,  6(  2A4  ,  SX  /  ) 

•**  PRINT  SUBTITLE 

WRI  -£!6, 1 ) 

1  “OR  ’•*  A  T  (  1  H  •  it  2  J\ 

V  ai’rc’raft  EMISSION  SUMMARY*) 

«**  PRINT  SUMMARY  OF  ANNUAL  EMISSIONS  BY  AIRCRAFT  TYPE 

*  PRINT  HEADER 

W- :”£(  6,101  ) 

10;  '?OR  iAT<  1H0.42X,  " 

1  *C.i  SUMMARY  OF  ANNUAL  EMISSIONS  BY  AIRCRAFT  TYPE*/ 

2  IH  ,  52X , "ALL  POLLUTANTS  IN  METRIC  TONS*) 

”  '.CO?  OVER  AIRCRAFT 

DO  150  IA-l.NACTYP 
I  SAC- ! ACT  YP !  I A ) 

J  R  I  IT  SUBHEADER 

WRITS'.  6,111)  ACNAME (  I DAC  > 

111  FORMAT! Ih0/1H0.S4X,AS  > 

WRITE<  6,  «UT1  )  t  PL  NAME  <  IP  ) ,  IP-1  .NPLTS  ) 

WR I ”E ( 6  , 902 > 

COMPUTE  AIRCRAFT  TOTALS 

DO  .20  IP-l.HFLTS 
ACEr-n  IF  ;»«. 

DO  .20  IM-1.I5 

ACEM( IP  )-aC£M( IP  >+EMISS! IA, IM, IP ) 

120  CONTINUE 

PRINT  DATA 

DC  130  !M= 1 . 15 

WRI-E(  6,902 )  ( OPNAM! J , 1M > ,0- 1 , 3 > , < EMISS! IA, IM, I P ) , IP-1 , NPLTS  > 

130  CONTINUE 

WRI~El 6 ,904  )  ( LINE .LINE . IP- l .NPLTS  > 

UP.  1  7£  I  6 , 502  )  (  OFNAMJ  J  ,  i  6  ) ,  J- i  .  3  ) .  (  ACEM!  I P  ) ,  I P-  1  .  NPLTS  ) 

*  £1:0  AIRCRAFT  LOOP 

15 0  CONTINUE 

«*•»  PRINT  ANNUAL  EMISSIONS  FOR  ALL  AIRCRAFT  LTO  MODES 

-  ’R in;  HEADER 

US  I ~E ' 6 . 201  ■- 
201  FORMAT! 1H1 .  41X. 

1  -C . 2  SUMMARY  OF  ANNUAL  EMISSIONS  FOR  ALL  AIRCRAFT  LTO  MODES*/ 

2  l-i  .53X.-ALL  POLLUTANTS  IN  METRIC  TONS’/ 


Copy  available  to  DTIC  does  not 
peimit  fully  legible  reproduction 


nan 


3  1H  ) 

VR I TE  <  6 , 90 ; >  ( PL NAME ( IP  >.  IP- 1 . NPLTS > 

WRITE<6,902) 

C 

C*  COMPUTE  TOTALS 

DO  220  IP- 1,, NPLTS 
5UMEMK  1  ,1?  )-0. 

DO  220  IM-1,15 
TMI  SS<  IM,  IP  )-£?. 

DO  210  IA-1.NACTYP 

TMI SSI IM. IP  )-TMISS< IM, IP  >+EMISS< IA, IM, IP  > 

210  CONTINUE 

SUMEMK 1,1? l-SUMEMI v 1 , IP )+TMISS( IM, IP  ) 

220  CONTINUE 

PRINT  DATA 

DC  230  IM-1.15 

WRI~E<  6 , 903  5  l OPNAMI 0  ,  IM  ) , J- 1 , 3 ) , ( TMI SSI IM, IP ) , IP-1 , NPLTS ) 

23.'?  CON-INUE 

WRITE <  6 , 30- >  (LINE. LINE. I  P-1, NPLTS) 

Wr.!7S<  S  ,903  )  <  OPNAMI  0 , 1  S  ) ,  J-l  ,  3  ) ,  (  SUMEMK  1 ,  IP  ) ,  IP- 1  .NPLTS) 
=  E-,.RN 


SUBROUTINE  ABESUM! SUMEMI > 


PRINT  AIRBASE  EMISSION  SUMMARY 


DIMENSION  3UMEMI (4,6) 

REAL  LUEMFC 
COMMON  /EM" DB 1 / 

1  EGEMFC (  6,4,50),  PL  NAME  (  6  )  .PPEMFC! 22,6 ) ,EMFCIN< 5,6 ) , 

2  TFEMFCl 6), LUEMFC! 9,6  >, ALPHA! 7), BETA! 7), 

3  FL0£NS<  7  > , FLNAME <  7  > , AF EM^C ( 2 , 6 , 6  ) . ATE MFC \ 2,6,6), 

4  CSSMFC! 6,6  >,AFCSEM( 5,6  >  ,  AF  SOAK  ,  ATSQAK , 

5  AFSRTH ,AT6RTH , FLTrCT! 7 )  ,F!XFCT( 7 ) , 

6  WRtCFCT(7) 

COMMON  /DEFALT/ 

1  NPLTS . ITAPE , ACLNDY .ACLNDZ. 

2  TC/SC" .TCHBDF .TCHODF .TCDYDF , 

3  "COIDF .RUDSDF .RUTSDF .RUVSDF , 

s  RJHEDF .RUHODF . RJDYDF . RUDZDF , 

5  T-DZDC .TFQDF .TFHBOF .TFHOQf . 

6  EGCKDY , EGCKDZ.ACMLPL , ARDSDZ, 

7  ATDSD Y .ATDjDZ.TCDSDF .TCTSDF , 

a  FPDFLT.TDDFLT.RFDFLT, SPOILT, 

9  PFDFLT,TFDFLT,TFDY0F.MINUS(6) 


COMMON  /TOTS / 

1 

TOTEM! 20,6 ) ,TOT 

EVP!  10). 

DIME 

NSICN  OPNAMl 3, 14  ) 

DATA 

OP NAM/ 

1 

' TRA I • , *N  FI  ' 

. 'RES  ' . 

•TEST'  ,  '  CEL  ' 

,  'LS  '  . 

3 

' RUN- ' , ' UP  S' 

.  ' ~DS  '  . 

4 

' POWE '  ,  ' R  PL  ' 

,  'ANTS ’  . 

5 

' INCI' , ' NERA' 

. 'TORS ' , 

5 

OTHE' . ' R  AS' 

, '  PTS-  , 

7 

' SPAC '  ,  ' E  HE  ' 

,  '  ATNG '  , 

3 

' CF  F  ' , ' ROAD ' 

,  '  VEH  '  . 

9 

MIL!  '  ,  'TAP.Y  ' 

.'  VEH', 

•CIV! ' , ' L IAN  1 

, '  VEH ' . 

1 

'MIL  ‘,'VEH  ' 

, 'LINE' , 

z 

'CIV  ','VEH  ' 

, 'LINE ’ , 

J 

'CTHE ' , ' R  AB  ' 

,  ’  LNS '  , 

4 

•TOTA' , ' L 

l  •  / 

DATA  LINE/' - 


901  F OR MAT ( 1 H0. I 5X , "OPERATION* . I 2X , 6 ! A4 , 1 2X ) ) 

902  e OP. MAT (  1  :-i  ) 

303  FOPMATIir  , I3X.3A4.8X, IP ,6<  E 10. 4 , 6X ) ) 

904  FORMAT! ih  ,  34X  ,  6 >  2A4 , 8X  >  ) 


C***  PF.i;*T  SUBTITLE 
C 

I  ~E  !  6 , 1  1 

I  FORMAT!  ;H!  ,4S::, 

1  »D.  A1RLASE  EMISSION  SUMM 

r 

Cm'-  PP.IXT  ANNUAL  EMISSIONS  FROM  GROUND  MOBILE  SOURCES 
C 

C*  ’TILT  HEADER 


SUMMARY*) 


■VR--S<  6 ,101  . 

101  FORMAT ( 1 H0 . 29” , 

1  * :• .  1  SUMMARY  OF  ANNUAL  EMISSIONS  FROM  GROUND  MOBILE  SOURCES*/ 

2  1-  ,  53, <  .  "ALL  POLLUTANTS  IN  METRIC  TONS*/ 

3  :.-i  ) 


Copy  available  to  DTIC  does  not 
permit  fully  legible  reproduction 


VP. ITE  (  6 , 901  )  t  PLNAME  {  I P  ) ,  I P- 1 ,  NPLTS  ) 

WRITE ( 6 , 902  > 

C 

C*  COMPUTE  TOTALS 

CO  -10  IP-1. NPLTS 
SwMIMI ( 2 , IP >-0. 

00  110  I M- 15, 20 

SUMEMI (2,  IF  ) -SUMEMI {  2 ,  IP  )+TOTEM!  IM,  IP  > 

110  CONTINUE 
c 

C*  PRINT  DATA 

C 

DC  120  IM-15,20 

WR : “E<  6 , 503  ) ' FoP NAM ( 0 , IM-7  )  ,0  - 1 , 3  > ,  ( TOTEM! IM, I P ) , I  P-1 , NPLTS ) 
120  CONTINUE 

VP I rE <  6 , 904 >  f  L INE . L INE , IP-1 , NPLTS  > 

VR I TE  <  6 , S03  )  i OP  NAM! J  ,  U  > .  0  - 1 . 3  ) ,  ( SUMEMI (2, IP), IP-1, NPLTS) 

WF I“E! 6 , 199 ) 

199  FORMAT! I H0) 

C 

C*»»  aRINT  ANNUAL  EMISSIONS  FROM  AIRBASE  FACILITIES 
C 

1*  PRINT  HEADER 

c 

WRITE  <6,201 ) 

201  FORMAT! 1H0.A0X, 

1  *0.2  SUMMmKV  OF  ANNUAL  EMISSIONS  FROM  AIRBASE  FACILITIES*/ 

2  1H  ,  53X , "ALL  POLLUTANTS  IN  METRIC  TONS*/ 

3  lr  ) 

WRI-E! 6,901  i  ( PL NAME! IP  , IP- 1 , NPLTS  ) 

Wr.  I~E<  6 , 902  > 
r 

C*  COMPUTE  TOTALS 

DO  210  IP-1. NPLTS 
3L.MIMI  (  3  ,  IP  >«0. 
oc  .‘.’.0  iiv-i. 

SUMEMI! 3. IF  ; -SUMEMI! 6, IP )+TOTEM! IM. IP ) 

210  30i-.-!NUE 

C*  FP.I-iT  data 
C 

DD  220  IM-E.li 

WRITE! 6 ,903 )  ! OP  NAM! J , IM-?  ) , J-l . 3  ),! TOTEM!  IM  ,  I P  ) , I P- 1 , NPLTS  ) 
220  CONTINUE 

V/P  I“E<  6 , 90-:  >  !  L  INE  .LINE  .  IP-1  .NPLTS  ) 

WRI-E!  6  ,  "03  !  OPNAM!  J  ,  U>,0-1,3>,(  SUMEMI!  3,  IP  ),  IP- 1  .NPLTS  ) 

C 

C***  PRINT  ANNUAL  EMISSIONS  FROM  EVAPORATIVE  H VOP.OCARBONS 
C"  PRINT  HEADER 


V?  1-E<  6 , 30'.  ■ 

301  r  0 F.XAT  <  1  H0 . 3 E X  , 

1  *3.3  SUMMARY  OF  ANNUAL  EMISSIONS  FROM  EVAPORATIVE  HYDRO*, 

2  ” CARE 01. 3* . / 1X,56X,*ALL  LOSSES  IN  METRIC  TONS*) 

WRITE! 6.302  • 

302  pq;n  AT!  1H0. 15V. "OPERATION*. 10X . "VORK I NG*. OX, "FIXED  R0CF*,4X, 

1  *  r  L0AT1 N  1  ROOF", 6X. "SPILLAGE*. 9/i. "OTHER"/ 

2  H  ,3oX , "LOSS*. 7X. "BREATHING  LOSS* , 2N , "BREATH  I NG  LOSS") 

'  3CM-UTE  TC~ALC 
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O  f  i  o 


TriCE  VL-0. 

DO  310  IM-1.10 
--iCSVl-THCEVL+TOTEVP! IMJ 
310  CCK-:N'JE 

S JMEMI (3,2 )*SUMEHI 13,2  )+THCEVL 
PRINT  DATA 

WRITE! 6,321)  ! TOTEVP! IM >, IM- 1 . 10 > 

321  FORMAT! 1H0, 13X, "STORAGE  TANKS" , 1 X , 1 P , 3E 1 6 . 4/ 

2  1H  , 13X, "FILLING", 1 3X . E 10. 4 . 38X , E10. 4/ 

3  lrt  ,  1 3X  ,  "PET  STOR  TKS*  ,  24X  ,  E  10 . 4 , 6X ,  E  10. 4/ 

4  l.-i  ,13X,"TH'-'.  TRUCK  PK*  ,  24X  .  E  10 . 4/ 

5  In  .13X.-VEH  PARKING", 25X, £10.4/ 

6  1H  ,13X, "OTHERS". 78X.E10.4) 

WRITE! 6,322 i  THCEVL 

322  FORMAT!  1  H0  .  13:., 

1  '“OTAL  EMISSIONS  FROM  EVAPORATIVE  HYDROCARBONS  ARE  ", 

2  1P.E10.4,"  METRIC  TOMS") 

RETURN 

END 


t 


[X 


s 


i 

« 

► 

x 


SUBROUTINE  ENESUM?  SUMEMI  > 

C 

c***»*  print  environ  emission  summary 

r 


c 


DIMENSION  SUMEMI <  4,6) 

REA.  LUEMFC 
COMMON  /EMFDBI/ 

1  EGEMFC<6.4.50> ,PLNAME<5  > , PPEMFC? 22 , 6 ) , EMFCI N( 5 , 6 > 

2  TF EMFC( 6 ) , LUEMFC? 9 , 6 ) , ALPHA< 7  ) , BETA( 7  > , 

3  F^DENS?  7  > ,FLNAME<  7 ) , AFEMFC t  2,6,6) ,ATEMFC( 2,6,6), 

4  CSEMFC( £.6 ) .AFCSEM? 6,6 ) , AFSOAK.ATSQAK, 

5  AFSRTH .ATBRTH , FLTFCT ( 7  ) , F IXFCT? 7  > , 

S  WR<rC7<7) 

COMMON  /TOTS/ 

1  TOTEM!  20, 6),  TOTE  VP  <  10 ) ,  EMI  SS<  8 , 1  5  ,  S  > 

COMMON  /DEFALT / 

1  nplts, ITAPE.ACLNDY.ACLNDZ, 

2  TCVSDr .TCHBDF .TCHODF -TCDYDF , 

3  7C0ZD- .RUOSDF .RUT3DF , RUVSDF , 

*  RUH3DF , RUHODF . RUDYDF . RUDZDF , 

5  Tf DZDF .TFQDF .7FHBDF .TFHODF  , 

3  EGCKDY , EGCKDZ , ACMLPL . ARDSDZ , 

7  ATjSDY .ATDSDZ, TCDSDF , TCTSDF  , 

3  FPDFLT.TODFLT.RFDFLT.SFDFLT, 

3  ?7*;FLT,TFDFLT,TFOYDF  .MINUSi  6> 


DIMENSION  OPNAM< 3,8) 
DATA  OP NAM/ 


I 

‘ ENVI ' 

, ‘ RON  1 

.  '  PTS.  ' 

2 

'ENV  1 

. 1 STA  ' 

, 'AREA' 

3 

'ENV  1 

, 'MOB  ' 

, 'AREA' 

t 

'ENV  * 

, 'LAND' 

.  ’  USE  ' 

5 

'ENV  • 

.'COM  ' 

. 'AREA' 

6 

'ENV  * 

, ' ROAD ' 

,  '  WAY  ' 

i 

'ENV  ' 

,  'NON-' 

,  '  ROAD  ' 

3 

DATA 

' TOTA 1 
LINE/  ' - ' 

■  i  ■ 

l  • 

/ 

901  FOF.MAK  IH0.  I5X  .-OPERATION*,  12X.6CA4, 12X)  ) 
302  F 0;  ■  ,AT (  1  H  ) 

903  r ‘AT \  1 H  , 13X . 3A4 . 8X . IP , 6< E 10. 4 , 6X > > 

904  F  )RMAT(  1H  .  34>.' ,  6(  2A4 , 8X  ;  ) 

C 

C***  PRINT  SUBTITLE 


v. 

U" I “E <  6 , 1  > 

1  FORMAT! 1HI ,43a, 

I  ENVIRON  EMISSION  SUMMARY*) 

C 

C**»  PRINT  ANNUAL  EMISSION  FROM  ENVIRONS 


'-:;;t  header 


I “E  <  6 . 101  ■ 

101  "OR MAT?  IH0>3>:. 

1  " E . 1  SUMMARY  OF  ANNUAL  EMISSIONS  FROM  ENVIRONS*/ 

2  1  >*  ,S6X,*ALl  POLLUTANTS  IN  METRIC  TONS*/ 

J  I-;  ) 

WRITE?  6 . 901 )  ( PL  NAME?  I ?  > . I P- 1 , NPLTS  ) 

■vRI“E  ?  6 , 902  ) 

C 

C*  COMPUTE  TC“AL S 

^  •• 

Copy  avcllr.t’o 
permit  ieiiy  legible  icy: 
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DO  '.10  IP-I, NPLTS 
CwMEMIU, IP >*0. 

110  IM-1,7 

3‘JMSMIC  4,  IP  )-3UMEMI(  4.  IP  )+TOTEM<  IM,  IP  > 

110  CONTINUE 

PRINT  DATA 

DO  120  IM-1,7 

URIrE<  6 , 903 )  ( OPNAM( J.IM),0-l,3),t TOTEM( IM, IP ) , IP- 1 , NPLTS > 

120  COfriNUE 

6,904  ;  (LINE, LINE,  IP-1, NPLTS  > 
vr : ~e ; 6 , S03 ;  <  opnami c . a  > , j- i , 3  > . < sumemi <  4 , 1 p ) , 1 ? - 1 , nplts  > 


«■>  •'*  n  o  r.  o  o< »  o  o  o  r>  < »  n  o  o 


SUBROUTINE  TOTSUMf  SUMEMI  > 
~  I  NT  TOTAL  SUMMARY 


DIMENSION  SUMEMI  (4,6) 


REAL  L'JEMFC 
COMMON  /EMFDS 1 / 

1  ESEMF C( 6 , 4 ,50  > , °LNAME<  3),PPEMFC<22,6) , EMFCINI  5,6), 

2  TFEMr C( 6 ) , LUEMFC( 5,6  > .ALPHA ( 7 ) , BETA{ 7 ) . 

3  FLE)SN$<7  >.FLNAME(  7),  AFEMFCI  2,6,5  ).ATEMFC<  2,6,6), 

4  C3EMCC(6,6),AFCSEM(5,6),AF  SOAK , ATSOAK , 

5  Ar'SRTH.ATBRTH.FLTFCTf  7  )  ,  F  I  XFCT<  7  )  , 

-  WR ,'F CT !  7  ) 

COMMON  /DE-ALT/ 

1  Na.TS . ITAPE , ACLNDY ,ACLNDZ, 

2  TCV3DF ,TCHBDF ,TCHODF .TCDYCF , 

2  70 DID" , RUOSOF , RUTSOF , RUVSDF , 

4  R'JHED"  ,  RUHODF  ,  RUDYDF  ,  RUDZDF  , 

3  TFEZSF .TFQOF .TFHBDF .TFHODF , 

5  E5CKDY , EGCKDZ, ACMLPL , ARDSOZ, 

7  ATD5DY ,ATDSDZ, TCDSDF , TCTSDF , 

8  FP:FlT,TDDFL7.RF0FLT.SFDFLT, 

9  ?rDFLT,TFDFLT,TFDYDF .MINUS! 6) 

DIMENSION  TSUMEM! 6 ) 

3  .  ME  NS  ID!.1  OPNAM(  3,5) 
jA  OPN.-.M/ 


1 

% 

•  A I  F.C 

* 

'  RAFT1 . 1 

» 

» 

-7 

'  GRCU 

1 

♦ 

•NO  M1 , ‘ 

OBI 

L  '  , 

3 

'  FaC  I 

1 

1 LITI 1 , 1 

ES 

1 

4 

ENV'I 

1 

» 

•RONS1 , 1 

1 

5 

'ORAN 

t 

» 

’ D  TO • , 1 

TAL 

'  / 

DAT 

A  LINE/ 

1 - 

1  / 

FORMAT < 1H0 

.  15X, 

•OPERATION 

*,1 

2X, 

r  OR 

MAT  (  1H 

) 

r  ERMAT (  1  H 

. :  e  x . 

3A4,8X. IP. 

6<E 

10. 

FOP 

■1AT<  1H 

*"!  A  \ 
t  w  *»  /•  * 

5  < 

2A4  ,  c'X  )  ) 

PHI 

NT  S'JST 

ITLE 

yp  i 

7E( 6.  i  > 

-OP. 

MAT! 1 H 1 

«  —  «*/•  * 

i  * 

F.  TO 

7  A 

L 

SUM 

M  A 

R 

'**  PRINT  ANNUAL  EMISSIONS 
'  PRINT  HEADER 

u*:-e<6,: si  / 

101  -OR. •-AT:  1HJ.  E0>; . 

1  V". 1  SUMMARY  OF  ALL  ANNUAL  EMISSIONS*/ 

2  I  ••  .52'-. 

2  ™.-,LL  P  Oi.  _  1-7ANTS  IN  METRIC  TONS*' 

V’;-E( 5 . 90:  .  < PL  NAME  <  I P  •  ,  I  P* 1 , NPLTS  / 

6,902  . 

r  COMPUTE  TOTALS 

0*  .10  IP*:. NPLTS 
T3UMEM( IP  )=0. 

so  .  :es  is*;,  l 

TEU.'iEM  IB  ,  =7SLMEM(  IP  )*SUMEMI(  IC,  I?  ) 


Copy  available  lo  DT1C  doe3  not 
pennii  fully  legible  reproduction 


O  O  O  0  0(1  O  O  o  o  o 


110  continue 

*  PRINT  DATA 

00  120  IC-1,4 

VF.ITE<6,903)  (OP KAMI  J,  10,0-1,3)  ,(SUMEHI(  IC , IP > , I  P-1 , NPLTS > 
120  CONTINUE 

VRI^S ( 6 , 904  >  ( LINE, LINE, IP- 1 .NPLTS) 

WRI“EC 6,903)  ( CPNAM( 0 , 5 ) , J» 1 , 3 1, ( TSUMEM< IP  ), IP-1 .NPLTS  ) 

***  PRINT  PERCENTAGE  BREAKDOWN 

*  PRIX"  HEADER 

W?,I''E<  6,201  ) 

201  FOiMAT<  1H0/ 

1  1 h0 ,  43X  , 

2  "-.2  EMISSION  PERCENTAGE  BREAKDOWN  OF  ALL  SOURCES*/ 

3  In) 

W,',ITE(  6,901  .  <  PL  NAME  <  IP  ) ,  IP- 1 ,  NPLTS  > 

WRITE ( 6 , 902  ) 

t 

«  COMolJTE  PERCENTAGES 

DO  210  IC-1,4 
DO  210  IP-l. NPLTS 

SUMEMI < IC. IP )■ 100. “SUMEMI < IC , IP >/TSUMEM( IP  ) 

210  CONTINUE 
C 

C“  PRINT  DATA 

C 

DO  230  IC- 1.4 

WRITE (6,221  '  ! OPNAM! J, IC >, 0-1, 3 >.( SUMEMI (IC, IP), I  P-1, NPLTS) 
221  FORMAT! 1H  . 1 3X , 3A4 , 5X , 6 < F 10. 3 , 6X > > 

230  CCNTNUE 
RETURN 
END 
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! 


! 


APPENDIX  D 


INPUT  DATA  SETS  AND  OUTPUT  LISTINGS  FOR  GRISSOM  AIR  FORCE  BASE 


r 

\ 


K 


1 

1 

» 

, 

INPUT  DATA:  SETS  2  AND  9  FOR  ORIGINAL  GSE  ROUTINE 

x 

* 

s 


I 


« 


I 
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flO-A123  471 
UNCLASSIFIED 


DEVELOPNENT  OF  A  COMPUTER  EMISSION  INVENTORV  ROUTINE 
FOR  AIRCRAFT  GROUND.  .  <U>  RESEARCH  TRIANGLE  INST 
RESEARCH  TRIANGLE  PARK  NC  SVSTEHS  AND  H.  . 

J  E  SICKLES  ET  AL.  28  SEP  81  F/G  9/2 


MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BURL  AO  OF  STANDARDS  196J  A 


L« 


f  • 


■2 

3EGDATA 

S 

SAC DATA 
ASCNT1C  22 
s 

SDSDATA 


NAME  L I  ST ( EG  DATA , AC  DATA , D  S  DATA  > 


)-8.j0r,TXISPD(22)-27.7, 


ACMOC 

1 

,22 

)« 

ACMOC 

5 

,  22 

)- 

ACMOC 

9 

)- 

ACMOC 

1 

.13 

>- 

ACMOC 

5 

,18 

>- 

ACMOC 

9 

.13 

>- 

ACMOC 

1 

,35 

>- 

ACMOC 

5 

,35 

>- 

ACMOC 

9 

.  35 

>- 

ACMGC 

1 

,21 

)- 

ACMOC 

5 

.21 

>- 

ACMOC 

9 

,21 

)- 

ACMOC 

1 

.27 

)  - 

ACMOC 

5 

.27 

)- 

ACMOC 

9 

.27 

>« 

ACMOC 

1 

,12 

>- 

ACMOC 

S 

,12 

>« 

ACMOC 

9 

,12 

>- 

ACMOC 

1 

,22 

)- 

ACMOC 

5 

,32 

>- 

ACMOC 

9 

,32 

)- 

ACMOC 

1 

,20 

>- 

ACMOC 

5 

.20 

>- 

ACMOC 

9 

.20 

>• 

ACUYC 

1 

.22 

>« 

ACD  V  < 

1 

,  1  d 

)- 

ACDW  C 

1 

,35 

>- 

ACD  Y  C 

1 

.21 

>- 

ACDYC 

1 

.27 

)» 

ACDYC 

1 

,12 

)- 

ACDYC 

1 

.32 

>- 

ACDYC 

1 

.20 

>» 

ACHRC 

1 . 2 

2  > 

ACHRC 

5.2 

2  ) 

ACHRC 

9,2 

2) 

ACHRC 

1 

3,2 

2  ) 

ACHRC 

1 

T 

2  ) 

ACHRC 

2 

1  \ 

2  ) 

ACHRC 

1  ,  1 

8  > 

ACHRC 

5  f  1 

8  ) 

ACHRC 

c .  i 

8  ) 

ACHRC 

i 

2  1 

8  ) 

ACHRC 

Z. 

7  t 

8  > 

ACH?  ( 

'y 

i .  i 

8  ) 

ACHRC 

*  *? 

5  ) 

mCHR  ( 

c  3 

5  ) 

ACHRC 

9.35) 

ACHRC 

l 

2,35  ) 

ACHRC 

i 

7,35  ) 

ACHRC 

2 

1,3 

5  ) 

ACHRC 

1  .2 

1  ) 

ACHRC 

5.2 

1  > 

ACHRC 

9,2 

1  ) 

ACHRC 

1 

3,2 

1  ) 

ACHRC 

1 

7,2 

1  ) 

AC  H  R  < 

z 

1  ** 

1  ) 

0 .  106 

0.106 
0.083 
0.094 
0.  107 
0.089 
0.079 
0.112 
0.094 
0.081 
0.114 
0.095 
0.08S 
0.120 
0.099 
0.079 
0.114 
0.09“ 
0.079 
0.112 
0.095 
0 .086 
0.118 
0.097 
0.196 
0.146 
0.  U6 
0.146 
0.146 
0.146 
0.146 
0. 14S 
.015 
.005 
.045 
0.09 
0.05 
0.06 
0.00 
0.00 
0.02 
0.11 
0.07 
0.02 
0 . 00 
0.00 
0.05 
0.08 
0.07 
0 . 03 
0.00 
0 . 00 
0.05 
0.06 
0.06 
0.06 


,ACMO< 
,  ACMO< 
,ACMO< 
,  ACMOC 
,  ACMO( 
,  ACMO( 
,ACMO< 
.  ACMO< 
,  ACMO< 
.  ACMO< 
,  ACMO< 
.  ACMO( 
,ACMO< 
,  ACMO< 
,ACMO( 
,  ACMO< 
,ACMO( 
,ACMO( 
. ACMO< 
.  ACMO< 
. ACMO( 
,ACMO( 
,  ACMO( 
,  ACMO( 
.ACDYC 
,ACDY< 
.ACDYC 
, ACD Y ( 
,ACOY( 
, ACD Y  < 
,ACDY< 
, ACOY< 
, ACHR( 
.ACHRC 
, ACHR( 
, ACHR( 
, ACHR( 
, ACHRC 
, ACHRC 
, ACHRC 
.ACHRC 
.ACHRC 
.ACHRC 
.ACHRC 
.ACHRC 
.ACHRC 
.ACHRC 
.ACHRC 
.ACHRC 
.ACHRC 
.ACHRC 
.ACHRC 
.ACHRC 
.ACHRC 
.ACHRC 
.ACHRC 


2,22 

6,22 

10,22 

2,18 

6,18 

10,18 

2.35 

6.35 

10.35 
2,21 
6,21 

10,21 

2.27 

6.27 
10,27 

2,12 

6,12 

10,12 

2.32 

6.32 
10,32 

2,20 
6, 20 
10,20 
2,22) 
2,18) 

2.35  ) 
2,21  ) 
2,27) 
2,12) 
2,32) 
2,20) 

2,22 

6,22 

10,22 

14.22 

18.22 

22,22 

2,18 

6,18 

10,18 

14.18 

13.18 

22.18 

2.35 

6.35 

10.35 

14.35 

18.35 

22.35 
2,21 
6,21 

10,21 

14.21 

18.21 

22,21 


-0.088 
-0.089 
>0.083 
-0.078 
-0. 105 
-0.082 
-0.065 
-0.078 
-0.083 
-0.067 
-0.056 
-0.085 
-0.065 
-0.043 
-0.089 
-0.066 
-0.059 
-0.082 
-0.066 
-0.078 
-0.083 
0.064 
0.064 
-0.086 
•0.010, 
-0.135, 
-0.135, 
-0. 135, 
-0.135, 
-0.135, 
■0.135, 
■0.135, 
>-.005, 
)- .005 , 
)-0.0 7, 
)  -0 . 04  , 
>-0.0 7, 
>-.045, 
>-0.00, 
>-0.00, 
>■0.07 , 
)-0. 17, 
1-0.04 , 
)  -0 .01  , 
>=0.00, 
>=0.00, 
>-0.06, 
>-0.07, 
>-0.12, 
>-0.02  , 
> -0 . 00 , 
>-0.00, 
>=0.06  , 
>-0.07  , 
> -0 . 08 . 
>=0.04 , 


,  ACMOC  3 
,  ACMOC  7 
,  ACMOC 11 
.ACMOC  3 
, ACMOC  7 
.ACMOC 11 
.ACMOC  3 
,  ACMOC  7 
.ACMOC 1 1 
.ACMOC  3 
.ACMOC  7 
.ACMOC 11 
.ACMOC  3 
.ACMOC  7 
.ACMOC 11 
.ACMOC  3 
.ACMOC  7 
.ACMOC 1 1 
.ACMOC  3 
.ACMOC  7 
.ACMOC 11 
.ACMOC  3 
.ACMOC  7 
.ACMOC  11 


,22) 
,  22  > 
,22) 
,18) 
,  18  > 
,  18  > 
,35  > 
,35) 
,35  > 
,21  > 
,21  > 
,21  > 
,27) 
,27  > 
,27) 
,12> 
,  12  > 
,  1  2  > 
,32  > 
,32  > 
,32) 
,20) 
,20) 
,20) 


-0.077 
-0.068 
-0.063 
-0.063 
-0.074 
-0.073 
-0.065 
-0.088 
-0.085 
-0.072 
-0.089 
=0.086 
-0.054 
-0.089 
0.089 
0.079 
0.090 
0.086 
0.062 
0.088 
0 . 006 
0.054 
0.086 
=0.096 


.ACMOC 
.ACMOC 
.ACMOC 
.ACMOC 
.ACMOC 
.ACMOC 
.ACMOC 
.ACMOC 
.ACMOC 
.ACMOC 
.ACMOC 
.ACMOC 
.ACMOC 
.ACMOC 
.ACMOC 
.ACMOC 
.ACMOC 
,  ACMOC 
.ACMOC 
.ACMOC 
.ACMOC 
.ACMOC 
.ACMOC 
.ACMOC 


4.22) 

8,22  > 

12 , 22  > 

4.18) 

8.18) 
12,18) 

4.35) 

8.35) 
12,35) 

4.21  ) 

8.21  ) 
12,21  ) 

4,27  ) 

8,27) 

12,27) 

4.12) 

8.12) 
12,12) 

4.32  ) 

8.32  > 
12,32) 

4.20) 

8.20) 
12,20) 


0.091, 
0.068, 
0.073, 
0.092, 
0.071 , 
0.072, 
0.096, 
0.081 , 
0.074, 
0.098, 
0.082, 
0.075, 
0.098, 
0.089, 
0.077, 
0.097, 
0.079, 
0.072, 
0.097, 
0.081 , 
0.073, 
0.097, 
0.086, 
0.076, 


ACHRC  3, 
ACHRC  7, 
ACHRC 11, 
ACHRC 15, 
ACHRC 19, 
ACHRC  23 , 
ACHRC  3, 
ACHRC  7, 
ACHRC 1 1 , 
ACHRC 15, 
ACHRC 19, 
ACHRC  23, 
ACHRC  3, 
ACHRC  7, 
ACHRC 1 1 , 
ACHRC 15, 
ACHRC 19, 
ACHRC  23, 
ACHRC  3, 
ACHRC  7, 
ACHRC  1 1 , 
ACHRC  15 , 
ACHRC 19 , 
ACHP.C  23, 


22) 

22  > 

22  ) 

22  ) 

22  ) 

22  > 

18  ) 

18  > 

18  ) 

18  ) 

18  ) 

19  ) 

35  ) 

35  ) 

35  > 

35  > 

35  > 

35  > 

21  > 

21  ) 

21  ) 

21  > 

21  > 

21  >=0 


-.005 
-0.04 
-0.04 
-.075 
-0.05 
-0.04 
-0.00 
-0.00 
-0.08 
-0.20 
-0.01 
-0.00 
-0.00 
=0.02 
=0.08 
-0.07 
-0.09 
-0.01 
*0.00 
-0.02 
=0.06 
=  0.06 
=0.  10 


03 


.ACHRC 
.ACHRC 
.ACHRC 
.ACHRC 
, ACHRC 
.ACHRC 
.ACHRC 
.ACHRC 
.ACHRC 
.ACHRC 
.ACHRC 
.ACHRC 
.ACHRC 
.ACHRC 
.ACHRC 
.ACHRC 
•ACHRC 
.ACHRC 
.ACHRC 
.ACHRC 
.ACHRC 
.ACHRC 
, ACHRC 
.ACHRC 


4.22 

8.22 
12,22 
16,22 
20,22 
24,22 

4.18 

8.18 
12,18 
16,18 
20.18 
24,18 

4.35 

8.35 

12.35 

16.35 

20.35 

24.35 

4.21 

8.21 
12,21 
■15,21 
20,21 
24,21 


-.005, 
-0.07, 
-.045, 
-0.06, 
-0.05, 
-0.02, 
-0.00, 
-0.00, 
=0.09, 
=0.09  , 
=0.01  , 
-0.00, 
-0.00, 
-0.04, 
=0.06, 
-0.06, 
-0.07, 
-0.00, 
-0.00, 
-0.05 . 
-0.07  , 
=0.06 , 
-0.07 , 
-0.00, 
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ACHRC  1 
AC  n  R  <  5 
ACHRC  5 
ACHRC  13 
ACHRC 17 
ACHR<  21 
ACHRC  1 
ACHRC  5 
ACHR<  9 
ACHRC 13 
ACHR( 17 
ACHR< 21 
ACHR(  1 
ACHRC  5 
ACHRC  S 
ACHR( 13 
ACHR( 17 
ACHRC 21 
ACHRC  1 
ACHR<  5 
ACHR<  9 
ACHR< 13 
ACHRC 17 
ACHR( 21 
VHMLMOC 
VHMLMOC 
VHMLMOC 
VHMLD Y ( 
VHML  HR  < 
VHMLHR< 
VHMLHR< 
VHMLHRC 
VHMLHRC 
VHMLHR 
CVABMG 
CVA3MO' 
CVABMOC 
CVABDY ( 
CVA3HRC 
CVABHRC 
CVABHRC 
CVABHR< 
CVABHRC 
CVABHR( 
FLMOC  1 
FLMOC  5 
FLMOC  9 
FLMOC  1 
eLMQ(  5 
FLMOC  9 
FLMOC  i 
FlMOC  5 
r!MO(  9 
FLMOC  1 
FLMOC  5 
FLMO<  9 
FLOYC  1 
FLOY'  1 
FLDYf  i 
F  L  D  Y  C  1 
r  _  H  R  C  1 
FLHR< 5 
FLHR( 9 
r  L  H  R  <  * 


.27) 
.27) 
.27) 
.27) 
,27) 
,27) 
.  12  ) 
.12) 
,12) 
,12) 
,12) 
,12) 
.32  ) 
,32  ) 
.32  ) 
.  32  ) 
,32) 
,32  > 
.  20 ) 
,20) 
,20) 
,20) 
,20) 
.20) 
1 


0 .00, ACHRC  2.27) 
0.00, ACHRC  6,27) 
0.05, ACHRC 10,27) 
0 . 05 , ACHR( 14,27) 
0.06 ,ACHR( 18.27  > 
0.06,ACHR(  22,27  ) 
0.00 , ACHR(  2,12) 
0 . 00 , ACHR(  6,12) 
0.05 , ACHR< 10,12) 
0.06 , ACHR< 14,12) 
0.06 ,ACHR( 18,12) 
0.06.ACHR(22, 12) 
0 . 00 , ACHR<  2,32) 
0 . 00 . ACHR{  6,32) 
0.05 . ACHR( 10,32) 
0.06 ,ACHR( 14,32  ) 


0.06 ,ACHR{  22,32  ) 
0 . 00 , ACHR(  2,20) 
0 . 00 , ACHR(  6,20) 
0 . 05 , ACHR( 10,20) 
0.06. ACHRC 14,20) 
0.06. ACHRC 18,20) 
0.06.ACHR(22,20) 
08333. VHMLMOC  2)- 


0.00, ACHR(  3,27) 
0 . 00 , ACHR(  7,27) 
0.06 ,ACHR(  11,27) 
0.07 ,ACHR( 15,27) 
0 . 08 , ACHRC 19,27) 
0.04,ACHR<23,27) 
0.00,ACHR(  3,12) 
0.00,ACHR(  7,12) 
0.06 .ACHRC 11,12) 
0.07 ,ACKR< 15,12) 
0.06 ,ACHR( 19,12) 
0.04,ACHR(23,12) 
00,ACHR(  3,32) 
0.00 , ACHR(  7,32) 
0.06 ,ACHR( 11,32) 
0 .07 , ACHR< 15,32) 


0.05  .ACHRC  18,32  )=0. 08,  ACHRC  19,32  )=0.  10,ACHR(  20,32  ) 


■.08333, VHMLMOC  6>- 
■•08333,  VWMLMOC-10)- 
■0. 2 . VHML  D Y ( 2 )-0 . 0 , 


0.04,ACHRC23,32> 
0 . 00 , ACHR<  3,20) 
0.00, ACHRC  7,20) 
0 .06 ,ACHR( 11,20) 
0.07 ,ACHRC 15,20) 
0 . 08 , ACHRC 19,20) 
0.04,ACKR<23,20> 
.08333, VHMLMOC  3) 
.08333, VHMLMOC  7) 
.  08333, VHMLMOC  11 > 


0.00.ACHR1  4,27) 
0.02 , ACHR<  8,27) 
0.06 ,ACHR{ 12,27) 
0.06 ,ACHR< 16,27) 
0. 10,ACHR<  20,27) 
0.03.ACHR124.27) 
0.00, ACHRC  4,12) 
0.02, ACHRC  8,12) 
0.06, ACHRC 12,12) 
0.06, ACHRC 16,12) 
0. 10, ACHRC  20, 12) 
0.03 , ACHRC  24 , 12  > 
0.00, ACHRC  4,32) 
0.02, ACHRC  8,32) 
0.06, ACHRC 12,32) 
0.06, ACHRC 16,32) 


0.03 .ACHRC  24,32) 
0.00, ACHRC  4.20) 
0.02, ACHRC  8,20) 
0.06, ACHRC 12,20) 
0.06, ACHRC 16,20) 
0. 10, ACHRC  20,20) 
0.03, ACHRC  24,20) 
.08333, VHMLMOC 
.08333 .VHMLMOC 


-0.00, 
•0.05, 
-0.07, 
-0.06, 
-0.07, 
-0.00, 
-0.00, 
-0.05, 
-0.07, 
-0.06, 
-0.07, 
-0.00, 
-0.00, 
-0.05, 
-0.07, 
-0.06, 
-0.07, 
-0.00, 
-0.00, 
-0.05, 
-0.07, 
-0.06, 
0.07, 
-0.00, 
4')-. 08333, 
8)-. 08333, 


.08333 .VHMLMOC 12)-. 08333, 


i /-0.0, VHMLHRC  2 )-0.0, VHMLHRC  3  1-0.0, VHMLHRC  4)»0.0, 

5 1-0.0, VHMLHRC  6>-0.0, VHMLHRC  7 >-0. 1 .VHMLHRC  8)-0.1, 

3  >-0. i .VHMLHRC 10)-0. 1 .VHMLHRC 11 )-0. 1 .VHMLHRC 12 )-0. 1 , 

13 )-0. 1 .VHMLHRC 14  >-0. 1 .VHMLHRC 15  >«0. 1 .VHMLHRC 16  1-0.0333, 

17 1-0.0323. VHMLHRC 18  >-0.0333 .VHMLHRC 19  >-0.0, VHMLHRC  201-0.0, 

21 ) -0.0, VHMLHRC 22 ) -0.0, VHMLHRC  23  >-0.0, VHMLHRC  2  4 )-0.0, 

1  -0.08333, CVABMOC  2 >-0.08333 .CVABMOC  3 >-0.08333, CVABMOC  4)-0. 08333, 
5  :■  -0.08333  ,  CVABMOC  6  ) -0  .08333  ,  CVABMOC  7  > -0 .03333  ,  CVABMOC  8>-0. 08333, 
9  .•-0.08333. CVABMOC  10  ) -0 . 08333  ,  CVABMOC  11  > -0 . 08333  ,  CVABMOC  12)-0. 08333, 
1  -0 . 1  486  .  CVABDYC  2  >-0.  1285, 

1 1-0.0160, CVABHRC  2 ) -0 .01 60 , CVABHRC  3 >-0.0160, CVABHRC  4)-. 00333, 

5 )-. 00333, CVABHRC  6 >- .00333 .CVABHRC  7 >-0. 1090, CVABHRC  8>-0.1090, 

9 ) -0 . 1099, CVABHRC 10 ) -0 .0333 , CVABHRC 11 >-0.0333 .CVABHRC 12J-0.0334, 

13  >-0.0333, CVABHRC  1 4  > -0 . 0333 , CVABHRC  1 5  > -0 . 0333 , CVABHRC 16 i -0.0963, 

17  1-0.0963. CVABHRC  1 8  > -0 . 096 3 , C VABHRC 1 9  > -0 . 01 33 , CVABHRC  20 >-0.01 33, 

21 >-0.01 33. CVABHRC  22  >-0.02  86 .CVABHRC 23 )-0 . 0286 , CVABHRC 24  >-0.0286, 

1 >-.08333, FLMOC  2 , 1 >• . 083 33 , FLMOC  3 , 1  )- .08333 , FLMOC  4,1)-. 08333, 
08333, FLMOC  6  ,  1  )-.  08333  ,  FLMOC  7,1  )-. 08333, 

1  ;-. 08333, FLMOC 10,1 >- .08  33  3 , FLMOC 11,1 >-.08333, 

2)=0. 0546, FLMOC  2 . 2 >-0.0969 .FLMOC  3,2)-0.0646, 

2 >-0. 0807, FLMOC  6 , 2  )-0. 1036 , FLMOC  7,2>=0.05?7, 

2  '=0. 1030. FLMOC 10,2  >-0.09  20, FI  MOC  1 1 , 

3 ,-0.0832. FLMOC  2,3 >»0. 0833, FLMOC  3, 

3  -0.0833. FLMOC  6 , 3 >-0.0833 , FLMOC  7, 

2  =0.0832, FLMOC 10 , 3 ) -0 . 08 3 4 . F LMOC 11 , 

4  '=.08333, FLMOC  2 , 4  ) - . 03333 , FLMO C  3, 

4  >=.03332. FLMOC  6 , 4  )  = . 08 333 , F LMOC  7, 

4  ,  =  .08333. FLMOC  10,4 ) - . 08 33 3 , r LMOC 1 1 , 

1  )  -0 . 20 , F  L  D  Y  C 2,1  1-0.00, 

■0. 16.FL0YC  2,2 )-0. 10, 

=0. 1 6 , FLD V C  2 , 3 ) -0 . 10 , 

■/»0. 20, FLDYC2, 41-0.00, 

*0.0,FLHR<  2, 1 )*0 .0, FL  HRC  3 , 1 )*0 .0, FLHRC4.1) =0.0, 

*0.0,FLHRC6,1 >“0.0,FLHRC7,1 >*0.0,FLHR(8,1 >*0.0„ 

*0. 125.FLHRC 10, 1 >-0. 125.FLHRC 1 1 , 1 >-0. 125.FLHRC 12, l >-0. 125, 

1 >=0.0, FL HRC 14,1 )-0.125,FLHRC 15,1 )=0.125,FLHRC 16,1 ) -0.125, 


.FLMOC  8,1)' 
.FLMOC  12, 1  >■ 
.FLMOC  4.2)' 
.FLMOC  8,2)' 


'.08333, 

.08333, 

•0.0674, 

•0.0756, 


,2  ) -0 . ! 181 
,  3  )=0.0833 
,  3  )  =0.:?8 3 3 
,3  >=0.0834 
,4  >-.08333, FLMOC 
,  4  >  =  .08333, FLMOC 


FLMOC 12,2  >=0.0755, 
FLMOC  4 , 3  >=0.0833 , 
FLMOC  8.3) -0 . 0833 , 
FLMOC 1 2 , 3  >  =  0 .0835 , 

4.4  >=.08333, 

8.4  >-.08333, 


,4 >-.08333, FLMOC 12, 4)-. 08333, 


188 


FLHRt 17,1  >-0. 125, FLHRt  18,1  >-0.0, FLHRt  19,1  >-0.0,  FLHRt  20,  1  >-0.0, 
ri.rmiZl.1  >-0 .  0 ,  F  LHR(  22 . 1  >-0 . 0 , FLHRt 23 . 1 >-0 . 0 , F LHRt 24 , 1  >-0.0, 

'LHRt 1 ,2>-0.0,FLHRt 2,2>-0.0,FLHR< 3,2  >-0 .0 , FLHRt 4 , 2  >-0.0, 

FLHR<  5,2  -0.0,Fi.HRt  6 , 2 )-0.0 , FLHRt  7 , 2 > -0 .0, FLHRt 8 , 2  >-0.0, 

FLHRt 9,2 >-0. 1 2  5 , F  L  H  R ( 10, 2 )-0. 1 25 . FLHRt 1 1 , 2 >-0. 125, FLHRt 12,2 >-0.125, 

FLHRt 13, 2 )-0.0, FLHRt 14,2  >-0, 125, FLHRt 15,2 >-0. 125, FLHRt 16, 2 >-0.1 25, 

FLHRt 17,2 )-0. 125, FLHRt 1 8 , 2 )-0 .0, FLHRt 1 9 , 2 >-0.0 , FLHRt 20, 2 >-0.0, 

FLHRt 2 1.2 >-0.0. FLHRt 22, 2 >-0.0, FLHRt 23, 2 >-0.0, FLHRt 24, 2 >-0.0, 

FLHRt 1 ,3  >-0.0, FLHRt  2 , 3 > -0 .0 , FLHRt  3.3  >-0.0, FLHRt  4, 3 >-0.0, 

FLHRt 5, 3 >0.0. FLHRt  6, 3 >-0.0, FLHRt  7,2 > -0.0, FLHRt 8, 3 >-0.0, 

FLHRt  9,3 >-0. 125. FLHRt 10,3 >-0. 125, FLHRt 11,3 >-0. 125, FLHRt 12. 3 >-0.125, 

FLHRt 13, 3) -0.0, FLHRt 14,3) -0.125, FLHRt 1 5 , 3 >-0. 1 25 , FLHRt 16,3 >-0.125, 

FLHRt 17,3  >-0. 125. FLHRt 18, 3 >-0.0, FLHRt 19,3 )-0.0, FLHRt 20, 3 >-0.0, 

FLHRt 2 1.3 >-0.0, FLHRt 22, 3 >-0.0, FLHRt 23, 3  >-0.0, FLHRt 24, 3 >-0.0, 

FLHRt 1 ,4  ) -0.0, FLHRt  2,4  >-0.0, FLHRt  3,4  >-0.0, FLHRt  4,4 )-0 .0, 

FLHRt 5. 4, -0.0, FLHRt 6,4 )-0.0, FLHRt 7, 4 >-0.0, FLHRt 8. 4 >-0.0, 

FLHRt 9.4; -0. 125, FLHRt 10, 4 ) -0 . 1 25 . F LHRt 1 1 , 4  > -0 . 1 25 . FLHRt 12,4 >-0. 125, 

FLHRt 13. ^ >-0.0, FLHRt 1 4 , 4 >-0. 1 25 , FLHR t 1 5 , 4 )-0. 1 25 , FLHRt 16, 4 >-0.125, 

FLHRt 17,4>-0. 12S, FLHRt 18,4  >-0.0, FLHRt 19,4  >-0.0, FLHRt  20,4  >-0.0, 

FLHRt 21,4) -0.0, FLHRt 22, 4 >-0.0, FLHRt 23, 4 >-0.0, FLHRt 24, 4 >-0.0, 

FLMOt 1 ,5>-0. , F LMOt  2,5  >-0. , FLMOt  3 , 5  >-0. , FLMOt 4 , 5  >-0. , FLMOt  5 , 5 )-0. , FLMOt 6 ,5 )-0. , 
FLMOt  7,5 ;-0. , FLMOt  8 ,5 >-0. . FLMOt  9 , 5 >-0. .FLMOt 10,5  >-0. .FLMOt 11 ,5>-0. , 

FLMOt 1 .6  >0. .FLMOt  2,6  >-0. , FLMOt 3 , 6  >-0. , FLMOt 4 . 6  >-0. , FLMOt 5 , 6 >-0. . FLMOt 6 , 6 )-0. , 
FLMOt 7,6  >-0. , FLMOt  8 , 5 )-0. , FLMOt 9 , 6 )-0. .FLMOt 10.6>-0. , FLMOt 1 1 , 6 )-0. . 

FLMOt 1 ,7  >«0. .FLMOt  2,7 >-0. . FLMOt  3 , 7  >-0. , FLMOt  4 , 7  >-0. , FLMOt 5 , 7 >-0. , FLMOt 6 , 7 >-0. , 
FLMOt 7,7  .-0. , FLMOt 8.7 >-0. , FLMOt 9 , 7 >-0. .FLMOt 10,7 >-0. .FLMOt ll,7>-0.. 

FLMOt 12. S>«0. .FLMOt 12,6 )-0. .FLMOt 12,7  >-0. , 

FLDYt 2.6 ;-0. ,  FLDY t 2 , 7 >-0. , FLDYt 2 , 5 >-0. , 

FLDYt 1 ,6  >-0. ,  FLDYi 1,7 )-0. .FLDYt 1,5 >-0. , 
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ENGINE  POLLUTANT  EMISSION  DATA 
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THRUST  FUEL  RATE  POLLUTANT  EMISSION  RATE  (KILOGRAMS  PER  HOUR) 

SETTING  llfl  LBS/HR  CO  HC  NOR  PH  SOX 
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SERVICE  VEHICLE  TKISSIONS 


KILOGRAMS  PER  DEPARTURE 


OOH|3V 
</)8)  Bi  S  V 
Q  S3  S3  Si 


S3  ®  Si  <* 
till 
tUUJUIUI 

X  S3  s»  S3  «u 


o  at  a» «  co 

</>  S3  *3  m  « 


o» «  S)  « 

iiii 

XUiUI  WUI 

O  St  S3  ^  S3 
</»  <®  Si  Oft  S) 
•  0*^  Oft 


S|  S>  5j  Sp 
IIII 
UJ  Ul  Ul  UJ 
C  «  «  S|  « 
.  si  go  si  si 
nsss 


X  Ul  UJ  UJ  UJ 

o  <5  si  s» 

S)  O'  0)  SI 


n  n  -<  -> 
S|  S)  Si  S3 
IIII 
Ui  ui  Ui  UJ 
X«  S3  Si  « 

a.  s>  s>  s>  <s 

P0  Or  Si  S) 


H  «  at 

<  JUS 

X  ~  =>  <  *- 

•  —  PC  _J  >  fl£ 

>  S3  O  O.  _J  --  < 

i  u.  za  —  oca. 

1  UJ  Z  JlAtfW 

1  S3  —  _i  <  Q 

l  si  —  * 

3  S3  O  u.  uj  ac  ec 


Cd  S}  S3  SI  _j  _i _ J  _ « 

Iiii  Ui  Ui  Ui  Ui 

Ui  Ui  ui  ui  3  3  3  3 

u  S3  S3  si  si  — *  u.  u.  u.  u. 

Z  Si  S3  <S  S| 

S3  S3  S3  S3  O  U.  U.  U.  U. 

....  oooo 

Si  «  S3  S3 


SI  SI  S3  9 

IIII 

uj  ui  ui  Ui 
O  «  ®  ®  Si 
U  S  ®  P  ® 
si  S3  S3  <* 


0  0  0  3 
OOOO 
SS  XX 
<  <  <  < 


oooo 

<<<< 


O  UJ  _J  _i 
“  I—  Ui 

H  Q£ 

2-J  a.  _i  3 
~=><»- 
Q £  _i  >  * 

O  a.  _i  -•  < 

u.  3-sa. 

Z  JlbKlii 

«  _J  <  O 


-J  ui  O 
Ui  LUiOQ 
3  -j  ui  uj 
Q  jKh 
ui  Ui  —  z  z 

at  o  a.  uj  uj 

3  </»  >  > 


s  z  z  z 

3  3  3  3 
OOOO 
XX  xz 
<<  <  < 


a>  m  —  — 
03  Q  03  S3 
IIII 
X  Ui  Ui  Ui  Ui 

O^SSS 
O  Si  S3  ®  s> 
S3  Si  Si  t& 


S3  IS  O  & 
IIII 
Ui  uj  ui  uj 
X  <8  <»  S3  ® 
a.  Si  <&  q  si 
S3  9  «  SI 


O  <  S3  S|  S3  « 

—  I  I  I  I 

x  ac  x  ui  ui  uj  ui 

ui  uj  o  Cf  8i  a  o 

>  Q-  Z  S|  O  Si  Si 

SI  -»  ®  <& 


~  <M  -  — 
S)  Si  S)  S3 
IIII 
Ui  Ui  Ui  UJ 
o  SI  S3  SI  « 
o  CD  S5  S3  ® 
S'  O'  S|  Si 


S3  S3  S3  S3 
IIII 
Ul  Ui  Ui  UJ 

O  S3  S3  S3  S3 
•J  9  UJ  Q  Si 
O*  C»  S3  Si 


OOOO 
<  <  <  < 
at  a-  at  at 


O  Si  S3  3  S3 
X  S3  Si  S3  S3 

n  33  Oft 


— >  n  — 

S3  ®  S;  =3 
till 
Ui  UJ  UJ  Ui 

O  O  SI  03  3| 

O  p.  S|  S»  33 


O  O  ^  -•  CD 
u.  </> 
to.  wo. 
ui  <  r>  o  r> 


208 


KILOGRAMS  per  departure 


REFUELING  INFORMATION  (JP  4) 
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REFUELING  INFORMATION  <JP  A) 


SERVICE  VEHICLE  EMISSIONS 
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SUMMARY  OF  ANNUAL  EMISSIONS  BY  AIRCRAFT  TYPE 
ALL  POLLUTANTS  IN  METRIC  TONS 
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SUMMARY  OF  ANNUAL  EMISSIONS  FOR  ALL  AIRCRAFT  LTO  MOOES 
ALL  POLLUTANTS  IN  METRIC  TONS 


c. 


*  —  •  —  -  —  —  —  —  —  -  —  -  -  a»  — 

+  I  +  IIIIISIIIII  +  I4 

Iu4UIUiWUlUIWWWWlUUlWW  I  i«j 

x  ain-«N«ifiiAio.Nnt(t.  !  ifl 

O  —  ,  & 

«A  voioO'  —  i  kfi 

aaNQao<(Kiox«<«a«ais  i  ld 

. . .  • 

—  **■  —  «•  (**  »o  *  —  —  ^  —  tn  m  ®  »  — 

uiUiwuiuiuiujuiuniiitiijuiwu  i 
9>U1I<aNUminU}-*CONaS)*  I  Oft 

X  o»cnf^a>foco-»rvPsj  —  ps.^aict-M  (  ^ 

a.  l*>  —  CD  —  ®»OX*«®Nifl«,a-*  l  — 

•  —  in  m  —  ^  n<  ®  ®  i  N 

. . . .  • 

NsiionNioiON«*<»«<>NetAU)  m 


®  ®  *  *  ®  O  ®  —  —  sj  -.  ai  —  —  —  - 

i  <s 

♦  ♦♦♦♦♦♦i  i  ♦  i  ♦  i  i  ♦  i  ♦ 

UiUlUtailiiWUlWUiWlMUJItlUIW  I  Lti 

x  ioionn«NaMflnioa>«t)N  i  ■« 

O  u>(si(n  —  —  r»(sir^^oxr»  —  a#®'*  •  o 

x  ox<xiCDv«(n»incotn(M9«(ata(M  i  at 

n-»*Q«®«inY»(M,a*si  i 

NMl/)M«lON^^-n(MlJl#rs  '  <j> 

nRRRuaistatsinii  ,  « 

♦  ♦♦I  »  '♦4*4-»  +  l+  +l  + 

UltilliUUiUJlKliJUliUUJUJUlUlU  I  ui 

K)imN-*«-.ifl««Nn»NR»  i  •*■ 

u  —  <vi  — i  cd  «  r».  (si  n  ao  b*  at  a%m  i-*  *o  •  in 

x  i*Moi*-ninN»(ni'j«m«oi  i  sj 

—  i/sOYtnrv  Haxaifl^isin  i  <n 


—  •  —  «}  —  —  8>(SJ  -•  —  (SI  (SI 

♦  ♦♦♦*♦♦♦♦♦♦♦1  i  ♦  i  < 
UiyillUJUlUIWUlulUIUlitlWiilU  1  Lu 
ifl^-ricoisarMoOMnsa^s  i  r>. 

•  HNN»aj»iN<Mnna6»  -  i 
'*^cDu>iAN:'ti/)M<Oi>ni&,SM  *  r. 
«OX(OnN«0«|CD»-Mfl*®lfl  I  >0 

0i  to  r*  in  r-  —  eg  ox  —  (sj  a%  (si  «  »  —  r*. 


-  rj 


>0-1 
m  x  -i 
-  -  O 
ft.  *-  o 

J  X  <s> 


X  o 

U  0£  _ 

£-5  -Mjojtia. 

30u>  <  «*  _  —  Q  >  * 

K  r  <  OB  3  c  -•  *  T 

*  ~  —  ?ZZ*« 

<  *  O  X  —  —  a.  ft.  X  X  X  O t  «i  -1  3 
»-<X3-i_ja.a.<<xa£3  —  O 


222 


J 


SUMMARY  Of  ANNUAL.  EMISSIONS  FROM  GROUND  MOBILE  SOURCES 
ALL  POLLUTANTS  IN  METRIC  TONS 
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SUMMARY  OF  ALL  ANNUAL  EMISSIONS 
ALL  POLLUTANTS  IN  METRIC  TONS 
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INPUT  DATA:  SETS  2  AND  9  FOR  REVISED  GSE  ROUTINE 
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fl 


NAME L I ST{ EGDATA, ACDATA, DSDATA ) 


SEG2ATA 


SAC DATA 
ASCHT i <  22  >-8 

S 

SDSDATA 
ACMO< 1 ,22>-0 
ACMO(5,22>-0 
ACMOC  9 . 22  1=0 
ACMO( 1 . 13 1-0 
ACMOC 3, 13  1=0 
ACMOC 9 , 13  1-0 
ACMC ( 1,35  1-0 
ACMOC  5 . 35  ) “0 
ACMO< 9,351-0 
ACMCK 1.21 1-0 
ACMO<  5.21  1-0 
ACMCK  9.21  1-0 
ACMOC  1,271-0 
ACMO<5. 271-0 
ACMO<  9.2~  !-0 
ACMCK  1  .  12  )-0 
ACMCK  5.12  1-0 
ACMCK  9. 121-0 
ACMCK  1,32  1-0 
ACMOC 5 .32  1-0 
ACMCK9. 321-0 
ACMCK  1.201-0 
ACMO',  5.201-0 
ACMC ( 9.201-0 
ACD  Y  <  1 ,22  1-0 

acdy;  : , ;s i-0 

ACDV<  I  ,25  1-0 
AC  D  <  1,211-0 
ACOvC  1 . 27  1-0 
ACD  V  *.  1  .  .  —  1—0 
AC  D  v (  : .32 1-0 
ACO  Y ( i . 201-0 
ACHRC  1,221- 
ACHRC  5,221- 
ACHRC  9,221- 
ACHRC  13.22  ) 
ACHRC 17,22) 
AC  H  P ( 2  1 ,22 1 
ACHRC  1,18) 
ACHRC  5,131- 
ACHRC  9,18) 
ACHPC 13,18) 
ACHPC  17,18) 
AC  HR ( 21.18) 
AC HR !  1.25) 
ACHR<  5,351= 
ACHR (  9,35) 
AC HP  <  13,35) 
ACHR  <  17,25) 
ACHRC  2 1  .25  1 
ACHR (  i  ,  2  1  1 
ACHR (  5.211 
AC Hr  <  9.21  1 
ACHRC  12.21  1 
ACHR(  17.21  1 
ACHR( 21.21  1 


.0.TXISPDC221-27.7, 


1-0.088 ,ACMO<  3 
1-0. 089, ACMCK  7 
1-0.083 ,ACMO( 11 
1-0.078 ,ACMO(  3 
1-0. 10S, ACMOC  7 
1-0.082 .ACMCK  11 
1-0.065 , ACMCK  3 
1-0 .078 ,  ACMOC  7 
1-0 . 083 , ACMO(  1 1 
1-0. 067, ACMO(  3 
1-0.056 , ACMO(  7 
1-0. 085, ACMCK  11 
1-0.065 , ACMOC  3 
1-0. 043, ACMOC  7 
1-0. 089, ACMOC It 
1-0.066 , ACMOC  3 
1-0. 059, ACMOC  7 
1-0. 082, ACMOC 1 1 
1-0. 066, ACMOC  3 
1-0. 078, ACMOC  7 
1-0. 082, ACMOC 11 
1-0. 064, ACMOC  3 
1-0. 064, ACMOC  7 
1-0. 036, ACMOC  1  1 


,  10S, ACMOC  2,22) 

.106, ACMOC  6,221 
.088. ACMOC 10  ?' 1 
.094, ACMOC  2,18) 

.107. ACMOC  6  18 1 
.039, ACMOC 10,18) 

.079, ACMOC  2,35) 

.112, ACMOC  6,35) 

.094, ACMOC 10,35 ) 

.031. ACMOC  2,21) 

.  il A. ACMOC  6,21) 

.095, ACMOC 10,21 1 
.033, ACMOC  2,271 
.  i20. ACMOC  6,27) 

.099. ACMOC 10,27  1 
.079, ACMOC  2,12) 

.114. ACMOC  6,12) 

.097, ACMOC 10.12) 

.079. ACMOC  2,32) 

.112, ACMOC  6,32) 

.095. ACMOC 10,32 
.036. ACMOC  2.20) 

.11 9. ACMOC  6.20) 

.097. ACMOC 10,20) 

. 196,ACDYC2,22 )«0.010, 

. 146.ACDYC  2, 18  >»0. 135, 

. 146, ACDYC2, 351-0. 135, 

. i 4c , ACD VC  2,21  '-0. 135, 

.  Ua.ACOYC  2,27  1-0.135, 

. ; 4 5 . AC 0 V < 2 , 12  > -0 . 135, 

.146, ACD Y C  2,321*0.135, 

. 146, AC0YC2, 201-0. 135, 
.015.ACHRC  2,22 )-. 005, ACHRC  3, 
.005 . ACHRC  6,22 >-.005, ACHRC  7, 
.04 5, ACHRC 10,22 1-0. 07, ACHRC 11 , 
0.09. ACHRC 14,22 1-0. 04, ACHRC 15, 
0.05. ACHRC 18, 221-0. 07, ACHRC 19, 
0. 0b. ACHRC  22,22  )-. 045, ACHRC  23, 
0.00. ACHRC  2, 18 1-0. 00, ACHRC  3, 
0.00, ACHRC  6, 18  1-0. 00, ACHRC  7, 
0.02. ACHRC 10, 18 1-0.07 .ACHRC  1  1  , 
0. 1 1 .ACHRC  14, 16 1-0. I  7, ACHRC 15, 
0.07. ACHRC 18. 18 1-0. 04, ACHRC 19, 
0.03. ACHRC  22, IS  1=0.01 .ACHRC  23, 
0..J0. ACHRC  2,35  1-0. 00. ACHRC  3, 
0.00. ACHRC  6 . 35 1-0. 00. ACHRC  7. 
0. 03, ACHRC 10, 35 1=0.06 , ACHRC 11 , 
0.03. ACHRC  14,35  1-0.07, ACHR!  15, 
0.07. ACHRC 18,35 1=0. 12, ACHR! 19, 
0.03, ACHRC  22,35  1-0.02, ACHRC  23, 
0.00. ACHRC  2,21  1-0. 00, ACHR!  3, 
0.00. ACHRC  6 , 21  1=0. 00, ACHRC  7, 
0.05 .ACHRC  10, 21  1=0.06 .ACHRC  1 1 , 
0.05. ACHRC  14,21  1=0  07 , ACHRC  15, 
0.06. ACHRC  13,21  1=0.08, ACHR<  19, 
0.05, ACHR (22, 21 ) =0 . 04 , ACHR ( 23 , 


,22) 
,22) 
,22) 
,  18  ) 
,18) 
,  18  ) 
,35  ) 
,35  1 
,35) 
.21  ) 
,21  > 
.21  ) 
.27) 
,27) 
,27  > 
.12) 
.  12  > 
.  12  1 
.32  ) 
,32  > 
,32) 
,20) 
,20) 
,20) 


-0.077 

-0.068 

0.063 

0.063 

0.074 

0.073 

0.065 

0.088 

0.035 

0.072 

0.089 

0.086 

0.054 

0.089 

0.089 

0.079 

0.090 

0.086 

0.062 

0.088 

0.086 

0.054 

0.086 

0.086 


, ACMOC  4,22) 
.ACMOC  8,22) 
.ACMOC 12,22) 
.ACMOC  4,18) 
.ACMOC  8,18) 
.ACMOC 12,18) 
.ACMOC  4,35) 
.ACMOC  8,35) 
.ACMOC 12,35) 
,  ACMOt  4,21) 
.ACMOC  8,21) 
.ACMOC 12,21 ) 
.ACMOC  4,27) 
.ACMOC  8,27) 
.ACMOC 12,27) 
.ACMOC  4,12) 
,  ACMOC  8,12) 
.ACMOC 12,12) 
.ACMOC  4,32) 
.ACMOC  8,32) 
.ACMOC 12,32  ) 
.ACMOC  4,20) 
.ACMOC  8,20) 
.ACMOC 12,20) 


-0.091, 
-0.068, 
-0.073, 
-0.092, 
-0.071  , 
-0.072, 
-0.096, 
-0.081 , 
-0.074, 
0.098, 
0.082, 
0.075, 
0.098, 
0.089, 
0.077, 
0.097, 
0.079, 
0.072, 
0.097, 
0.081 , 
0.073, 
0.097, 
0.086, 
0.076, 


22  >-.005 
22  >-0.04 
22  >-0.04 
22  >-.075 
22  >=0.05 
22 ) -0.04 
18  >-0.00 
181-0.00 
18  >-0.0S 
18 )»0.20 
18  >=3.01 
18  >-0.00 
35  >-0.00 
35  1=0.02 
351-0.08 
35  1-0.07 
35 1=0.09 
351-0.01 
211-0.00 
21  1-0.02 
21 1-0.06 
21  1=0.06 
211-0.10 
21  1=0.03 


.ACHRC  4,22) 
.ACHRC  8,22) 
.ACHRC 12,22 1 
.ACHRC 16,22 ) 
.ACHRC  20,22 1 
.ACHRC  24,22  ) 
.ACHRC  4,181 
.ACHRC  8,18) 
.ACHRC 12.18) 
.ACHRC 16,18) 
, ACHRC  20.18) 
.ACHRC  24.18) 
.ACHRC  4,351 
.ACHRt  3,35) 
.ACHRC 12,35) 
.ACHRC 16,35 ) 
.ACHP.C  20,35  1 
.ACHRC  24,35) 
.ACHRC  4,21) 
, ACHRC  3,21) 
.ACHRC 12,21 ) 
.ACHRC 16.21) 
, ACHRC  20,21  1 
,  ACHRC24 , 21 1 


-.005, 
-0.07, 
-.045, 
-0.06, 
-0.05, 
-0.02. 
-0.00, 
0.00, 
0.09, 
0.09, 
0.01  . 
0.00. 
0.00, 
0.04  , 
0.06  . 
0.06  , 
0.07, 
0.00, 
0.00, 
0.05  , 
-0.07, 
=0.06. 
=0.07 , 
=0.00, 
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s 


ACHRl  1 
AC  H  R  <  5 
AC  H " ;  3 

ACKR! 13 
ACHRl 17 
ACHR<  21 
ACHR<  1 
ACHR(  5 
ACHRl  9 
ACHRl 13 
ACHR( 17 
ACHRl 21 
ACHRl  1 
ACHRl  3 
ACHRl  9 
ACHRl 13 
ACHRl 17 
ACHRl 21 
ACHRl  1 
ACHRl  5 
ACHRl  9 
ACHRl 13 
ACHRl 17 
ACHRl 21 
VHMLM01 
VHMLMO' 
VHMLMOl 
VHML0Y1 
VHMLHRl 
VHMLHR1 
VKMLHRI 
VHMLHRl 
VHMLHRl 
VKMLHRI 
CVABMQl 
CVABMOl 
CVABMQl 
CVA3DY1 
CVABHRl 
CVABHRl 
CVA8HR1 
CVAEHRl 
CVA3HR1 
CVAEHRl 
F LMOl  1  . 
FLMOl 5  . 
FLMC' 3  . 
FLMOl  1  . 
FLMOl 5, 
FLMOl 9. 
FLMOl  1  . 
F  LMOl 5 . 
^LMOl 9  . 
FLMC!  1  . 
FLMOl 3  . 
-LMOl 9  . 
FL3Y1 1 . 
F  l  0  V 1  1  , 
F  L  D  Y  1  1  . 
FLOY! 1 . 
FLHR(  1  . 
r  L  u  R  <  5  . 
r  w -i  .  ?  . 


.275-0.00. ACHRl  2 , 27 >-0.00, ACHP.t  3 , 27 >-0.00, ACHRl  4,27>-0.0  2, 

.27 >-0.00, ACHRl  6,27  >-0.00, AC HR!  7 , 27 >-0.02 .ACHRl  8,27>-0.05, 

.27 >-0.05. ACHRl 10, 27  >-0 . 06 .ACHRl 1 1 , 27 >-0.06 .ACHRl 12,27  >-0.07, 

.27 5-0. 06. ACHRl 14,27  >-0.07, ACHRl 15 , 27 >-0.06 .ACHRl 16,27  >-0.06, 

.27  >-0.06, ACHRl  18,27 )-0. 08, ACHRl 19,27 )-0. 10, ACHRl 20,275-0.07, 

.  27 > -0. 06, ACHRl 22, 27 ) -0.04, ACHRl  23, 27  >»0. 03, ACHRl 24, 27  >-0.00, 

,  12  )-0. 00, ACHRl  2, 12 >-0.00, ACHRl  3, 12  )-0. 00, ACHRl  4,12>-0.00, 
.125-0.00. ACHRl  6. 125-0. 00, ACHRl  7 , 12 >»0. 02, ACHRl  8,12>-0.05, 

,  12 >-0.05, ACHRl 10, 12  >-0.06, ACHRl 1 1 , 12 >-0.06 .ACHRl 12, 12  >-0.07, 

, 12 >-0.06, ACHRl 14, 12  >-0.07, ACHRl 1 5 , 1 2 >-0.06 .ACHRl 16, 12  >-0.06, 

,  12  >-0.06, ACHRl  18, 12  3-0.08 , ACHRl 19, 12  >-0. 10, ACHRl 20, 12  >-0.07, 

, 12 ) -0.06, ACHRl 22, 12  >»0.04, ACHRl 23,12 >-0.03, ACHRl 24, 12)-0.00, 

,32 3-0.00, ACHRl  2 , 32  )  -  0 . 00 , ACHRl  3 , 32 ) -0 . 00 , ACHRl  4,32>-0.00, 

,32 )-0. 00. ACHRl  6,32 >-0. 00, ACHRl  7 , 32 )-0.02 , ACHRl  8,32>-0.05, 

,32  >-0.05. ACHRl 10 , 32  > -0 . 06 , ACHRl 1 1 , 32 ) -0.06, ACHRl 12,32  >-0.07, 

,32>-0. 06, ACHRl 1 4 , 32 > *0 . 07 , ACHRl 1 5 , 32 >-0.06 .ACHRl 16,325-0.06, 

,32  5=0.06 .ACHRl 18,32  >=0.08, ACHRl 19 ,32  >=0. 10, ACHRl 20, 32  >*0.07, 

,  32  ) -0. 05. ACHRl  22, 32  > -0.04, ACHRl  23, 32  >-0.03, ACHRl  24, 32 >-0.00, 

,20)-0. 00, ACHRl  2 , 205-0.00, ACHRl  3 , 20 > -0 . 00 , ACHRl  4,20>«0.00, 

,20>-0. 00. ACHRl  6 ,20) -0.00, AC HR!  7 , 20 >-0.02 .ACHRl  8,205-0.05, 

,20 >-0.05, ACHRl  10,20) -0.06, ACHRl 11 , 20 )-0 .06 , ACHRl  12,20  5-0.07, 

,20) -0.05. ACHRl 14, 20 >-0.07, ACHRl 1 5 , 20 > -0 .06 , ACHRl 16, 20 >-0.06, 

.20 >-0.06. ACHRl 13, 20 >-0.08, ACHRl 19,20)*0. 10 , ACHRl 20, 20 ) -0 .07 , 

.20 >=0.05. ACHRl 22 , 20 > =0 . 04 . ACHR ( 23 , 20 )-0 .03 .ACHRl 24 , 20 5-0.00. 

1 ;«. 03333, VHMLMOl  2 ) - . 08333 , VHMLMOl  3 )- .08333 , VHMLMOl  4)-. 08333, 

5 .--.08333,  VHMLMOl  6 )-. 08333 , VHMLMOl  7 >- .08333 , VHMLMOl  8)-. 08333, 

9l-. 08333, VHMLMOl 10 >-. 083 33 , VHMLMOl 11 )- .03333 , VHMLMOl 12)-. 08333, 

1 ;-0.2,VHMLDY<2>-0.0, 

1 >-0.0, VHMLHRl  2 >-0.0, VHMLHRl  3 > =0 .0, VKMLHRI  4>-0.0, 

5 >»0.0, VHMLHRl  6 >-0.0, VHMLHRl  7 5=0. 1 , VHMLHRl  8J-0.1, 

9  >-0. 1 .  VHMLHRl 10>«0. 1 .VHMLHRl 1 1  >=0. 1 .VKMLHRI 12  >-0. 1 , 

13  >-0. 1 .VHMLHRl 14 )-0. 1 .VHMLHRl 15  5-0. 1 .VHMLHRl 16  >-0.0333, 

17 > -0.0333. VHMLHRl 1 8 >-0 . 0333 . VHMLHRl 19  >-0.0, VHMLHRl  20  5-0.0, 

21 > -0.0, VHMLHRl 22 >=0.0, VHMLHRl 23  >=0.0, VHMLHRl 24) -0.0, 

1 .-0.08333, CVABMOl  2 >-0.08333 , CVABMOl  3 >-0.08333 .CVABMOl  4 >-0.08333, 
5  -0.08333, CVA3M01  S >-0 . 08333 , CVABMOl  7 >=0.08333 .CVABMOl  85-0.08333, 
9  -0.08333, CVABMOl 101 =0 . 08333 , CVABMOl 11 > -0 . 08333 , CVABMOl 125-0.08333, 
1-0. I48  6 .CVA80Y1 2  >«0. 1285, 

1 >=0.0150, CVABHR1  2 5=0.0160, CVABHR1  3 > -0 . 01 50 , CVABHRt  4>». 00333, 

= >=.00323, CVABHRl  6  5 - . 00333 , CVABHR1  7 5 =0 . 1090 , CVABHRl  85-0.1090, 

9  5-0. 1099 .CVABHRl 10 5 =0 . 0333 , CVABHRl 1 1  ) -0. 0333 , CVABHRl  1 2  5 -0 . 0334 , 

13  5 =0.0333, CVABHRl  14  5=0.0333 .CVmBHRI 1 5  > =0. 0333 . CVABHRl  16  5=0.0963, 

17  5=0. 0353, CVABHRl  13 ) =0 . 09 63 , CVABHRl 19  )  =0 . 01 33 . CVABHRl 20  5-0.0133, 
215-0.01 33, CVABHRl 22  >-0 .0286 .CVABHRl 23  5-0.0286 .CVABHRl  24  5-0.0286, 


■-.08332. FLMOl  2 . 1 5- .08333 . FLMOl  3, 1 >-.08 333, FLMOl  4,15-. 08333, 
--.08332, FLMOl  6 , 1 >-. 08333 , FLMOl  7 , 1 >-. 08333 , FLMOl  8,1)-. 08333, 
'  =  .06333 . FLMOl  10, i > - . 0833 3 , F LMOl 11,1 >-. 08333 , F LMOl 12,1  )- .08333 
--0.064c .FLMOl  2, 25=0. 0969, FLMOl  3 , 2 > -0 . 0646 . F LMOl  4,2>»0.0674 
■  -0.0807 , F -MOl  6.2 >-0. 1036, FLMOl  7 , 2 >=0.0577 , FLMOl  8,2>=0.0756 


2 ; =0.0807 , F -MOl  6 . 2 >»0 . 1036 , F LMOl  7,21=0.0577, 
2 1=0. 1030. FLMOl  10,2  5=0.0920, FLMOl 1 1 ,2 )=0. 1 181  , 
35=0. 0833. FLMOl  2 , 3 5 -0 . 0833 , F LMOl  3,35=0.0833, 
FLMOl 


3  5=0.0833 

3  .-=0.0833 
2  =0.0532 
4 •= .03232 

4  =.05333 


2, 35=0. 0833, FLMOl 
6.3  5=0. 0833, FLMOl 


FlMOI  10 , 2  5=0.0834. FLMOl  1  1 , 3  5=0.0834 
FLMOl  2.4  i=.0S333, FLMOl  3,4)=. 06333 


■  .03332 . 


7, 25=0. 0577, FLMOl  8,25=0.0756, 
1,2 >-0.1 181 .FLMOl 12, 2 >=0.0755, 
3,3 >-0.0833, FLMOl  4,3>=0.0833, 
7, 3>-0. 0333, FLMOl  8,3>=0.0833, 
1 ,3 >=0.0834, FLMOl  12,3  5-0.0835, 
3 , 4  5= .06333 . FLMOl  4,4  )=. 08333, 
7.4 >=.53333, FLMOl  9.4>=.0G333, 


-  =.03333. FLMOl  6 . 4 /» .08332 . FLMOl  7 , 4 )  =  . 59333 , F LMOl  9.4>=.0G333 
5  ;=. 08332. FLMOl  10 , 4 )= . 08333 , FLMOl  1  1 , 4  )=. 08333 , F LMOl  12 . 4  )= .08333 
=0.20, FLOY! 2. 1 1-0.00, 

:  =0. lfa.FLDYl 2,2 )=0. 10, 

I  '-0. 16.FLDV1 2,3  5=0. 10, 

5  ,=0.20. FLOY! 2,4 1*0.00, 

-0.0.FLHR! 2, 1 >-0.0,FLHR( 3, 1 >-0.0,FLHR< 4, 1 >-0.0, 

.  =0.0, FlHR! 6 . 1 J-0.0.FLHR1 7, 1 >-0.0,FLHR( 8. 1 >=0.0, 

-=0.125  LHK'.  10  ,  1  i  -0 . 1  25  .  FLriRl  1  1  ,  1  >=0 . 125  ,  FLHR!  12.  1  >=0.  125. 

1  >=0.0,FLrlF;l  14,1  >=0. 1 25 , FLHR!  15,1  5=0. 125, FLHR!  1 6=,  1  /  =0.125, 


I 
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FLHRl 17.1 1-0. 125, FLHRl 18,1 1-0.0, FLHRl 19,1 1-0.0, FLHR( 20, 1 1-0.0, 

F  i.r.^21 . 1  )-0.0,FLHRt  22, 1  1-0.0,  FLHR<  23, 1  1-0.0, FLHRl  24, 1  1-0.0, 

F.HRl i .2 /-0.0.FLHR1 2, 2 1-0.0, FLHRl 3.2 1-0.0, FLHRl 4,21-0.0, 

FLHR<  5. 2. '-0.0. FLHRl 6, 2 1-0.0. FLHRl 7 , 2  1-0 .0, FLHRl  3,21-0.0, 

FLHRl 9.2  -0.  125, FLHRl  10,2  1-0.  125  ,  FLHR(  1 1 , 2 1-0. 1 25 . FLHRl 1 2 , 2 1-0. 1 25 , 

FLHRl 13, 2 1-0.0, FLHRl 14,21-0.125, FLHRl 1 5 , 2 1-0 . 1 25 , FLHRl 1 6 , 2 1-0. 125 , 

FLHRl 17,21-0. 125, FLHR< 18,2 1-0.0, FLHRl 19,2 1-0.0, FLHRl 20,2 1-0.0, 
FLHR(21,2)-0.0,FLHR(22,21-0.0,FLHR(23,2)-0.0,FLHR(24,2>-0.0, 

FLHRl 1 .3 1-0.0, FLHRl 2,3 1-0.0. FLHRl 3,3 1-0.0, FLHRl 4.3 1-0.0, 

FLHRl 5, 2, -0.0, FLHRl 6, 3 1-0.0, FLHRl 7,3 »-0.0, FLHRl 3. 3 1-0.0, 

FLHRl 9. 3  -0. 125, FLHRl 10.3 1-0. 125, FLHRl 11,31-0. 1 25 . FL HR! 1 2 , 3 1 -0. 1 25 , 

FLHRl 13,3 1-0.0, FLHRl 14,3 1-0. 125, FLHRl 15,3 1-0. 125, FLHRl 16,3 1-0. 125, 

FLHR! 17,3 1-0. 125. FLHRl 18, 3 1-0.0, FLHRl 19, 3 1-0.0, FLHRl 20, 3 1-0.0, 

;LHR<  21 ,3  1-0.0. FLHRl 22,3 1-0.0, FLHRl 23, 3 1-0.0, FLHRl 24, 3 1-0.0, 

FLHRl 1 ,4 1-0.0, FLHRl 2,4 1-0.0, FLHRl 3,4 1-0.0, FLHRl 4,4 1-0.0, 

FLHRf 5.4  >-0.0, FLHRl 6, 4 1-0.0. FLHRl 7, 4 1-0.0, FLHRl 8, 4 1-0.0, 

FLHRl 9.4  —0. 125, FLHRl 10,4 1-0. 125, FLHRl 11 ,4 1-0. 125, FLHRl 12,41-0.125, 

FLHRl 13, 4 1-0.0, FLHRl 14,41-0. 125, FLHRl 15,41-0. 125, FLHRl 16,41-0. 125, 

FLHRl 17, 0-0. 125. FLHRl 18, 4 1-0.0, FLHRl 19, 4 1-0.0, FLHRl 20, 4 1-0.0, 

FLHRl  21 .4  )-0. 0, FLHRl  22,4  1-0. 0, FLHRl  23,4  1-0.0, FLHP.l  24, 4  1-0.0, 

FLM01 1,51-0. ,FLMO( 2,51-0. .FLMOl 3, 5 1-0. , FLMOl 4 , 5 1-0. , FLMOl 5 , 5 1-0. .FLMOl 6, 5 1-0 
FLMOl  7.5  >-0. , cLMOl  8 , 5 1-0. , FLMOl 9 , 5 1 -0. .FLMOl 10.51-0. .FLMOl 11,51-0.. 

FlMOI 1 ,6  >-0. .FLMOl 2,6 1-0. .FLMOl 3,6 1-0. , FLMOl 4 , 6  1-0 . , FLMOl 5 , 6 1-0. .FLMOl 6,6 1-0 
FLMOl 7,6  >-0. .FLMOl 8,6 1-0. . FLMOl 9 , 6 1-0. .FLMOl 10,61-0. .FLMOl 11,61-0., 

FLMOl 1.7  1-0. .FLMOl 2.7 1-0. , FLMOl 3 , 7 1-0 . , FLMOl 4 , 7  1-0. , FLMOl 5 , 7 1-0. .FLMOl 6, 7 1-0 
FLMO<  7.7 1-0. , FLMOl 8,71-0. . FLMOl 9 , 7 1-0. .FLMOl 10,7 --0. .FLMOl 11,71-0.. 

FLMOl  12.51-0. .FlMOI  12.61-0. .FLMOl 12,71-0. . 

FLDYl 2,c  =0. ,  FLO/ 12. 7 1-0. .FLOY! 2,5 1-0. , 

FLDYl  i  .  5  .•■0.  ,  FLCYl  1 ,7  1-0.  ,FLOY<  1 ,5  1-0.  , 

S 
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A. 3  GSE  POLLUTANT  EMISSION  DATA 


INFORMATION  FOR  AIRCRAFT  SERVICE  VEHICLES 
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AVERAGE  AMOUNT  Of  FUEL  U  ;E0  PER  FILLUP  I L ITERS > .  1093.53 

AVF  F AGE  AMOUNT  O  FULL  SPILLtD  PEK  FILLUP  (LITERS) .  0.1? 

AVERAGE  AMOUNT  Of  FUEL  VESTED  PER  ARRIVAL  (LITERS) .  0.0J 

AVERAGE  AMUUN  •  j>  FUEL  VENTED  PER  DEPARTURE  (LiTEF.S) .  0..T« 


SERVICING  INFORMATION 


AVc'lAGC  AMOUNT  Or*  FUEL  USED  PER  MLL'JP  (LITERS? .  IZaBSf.JP 


GROUND  SUPPORT  EQUIPMENT 


HI  HEATER  AM  S  1 03.  1.46 
MP3  GEHERATR  AMS  100.  1.93 
MC1A  CMPRE SOR  AM  S  100.  0.46 
NT 2  LIGHT  ST  AM  G  100.  1.97 
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SUMMARY  OF  ANNUAL  EMISSIONS  BY  AIRCRAFT  TYPE 
ALL  POLLUTANTS  IN  METRIC  TONS 


SV.P  '.'v  2.4545E»00  G.3353E-0I  3.6436E-03  1.9901E-01  1.9901E-03 
TAX  j  01  r  1  .  I5GSE<00  r.arrtL-E-UI  I.7I52E-03  9.3S55C-0Z  9. 39551. -04 
E  Ni.'f.L  CHECK  6./3-i5t->00  I.I8I9E-0I  5.44F9E-02  I.I587E-4*!  3.476IE-0; 
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CL. ML  1  I.'ja73t*00  J.4940C-UL  1.6Ii<E-»2  3. 4263E-02  1.02791 -03 
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APPI.oai  H  2  1  . 0  i  2  7E  +00  5.8712E-02  I.431BE-03  6.71  10E-02  8.4695E-04 
l  Ark* :  It*  7.2224E-01  1.856SE-01  I.0693E-03  S.8323E-02  5.8323E-04 
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SUMMARY  OF  ANNUAL  EMISSIONS  FOR  ALL  AIRCRAFT  LTO  MOOES 
ALL  POLLUTANTS  IN  METRIC  TONS 
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SUMMARY  OF  All  ANNUAl  EMISSIONS 
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INPUT  DATA:  SETS  2  AND  9  FOR  ORIGINAL  GSE  ROUTINE 


*2  NAMELIST  DATA 

SESDATA  AC NAME (  27 1-6HEC-121 .ACNAMEl 46  1-8HHH3E/UH1 , 

E6NAME<41  1-7HT53/T58, 

EGEMFCl 1,1,41 1*172.2, EGEMFCl 1,2,41 1-9 . 40, EGEMFCl 1 , 3 , 41 1-8. 5, EGEMFCl 1 ,4,41 1-0 
EGEMFCl 2, 1 ,41 1-95 . 70, EGEMFCl 2 , 2 , 4 1 1-0. 60, EGEMFC( 2 , 3 , 41 >-0. 6 , EGEMFCl 2, 4 , 41 1-0 
EGEMFCl 3, 1 ,41 1*2 .000, EGEMFC<  3 , 2 , 4 1 1*5 . 10, EGEMFCl 3 , 3 , 4 1 1-5 . 4 , EGEMFCl 3 , 4 , 4 1 1-0 
£GEMFC<  a, 1 ,41 1*0. 200, EGEMFC(4,2,41 1*1 . 10, EGEMFCl 4 , 3 , 41 1-1 .6 , EGEMFCl  4 , 4 , 41  1*0 
EGEMFCl 5, 1,41 1*1 .000, EGEMFCl 5,2,41 1- 1 .00 , EGEMFC( 5 , 3 , 41 1*1 .0,EGEMFC( 5,4,41 1-0 
EGFFt i .41  )-.1130.EGFF(2,41  )- . 7090, EGFF t  3 , 4 1 >« . 744 , EGFFl 4 ,4 1 1*0.0, 

I ACA3F (46 1*0 , 1 DACE G l 461*41,1 EGABF  <46 1-0 , 1 DRR( 46 1*37 , S 
SAC DATA 

APPHT-0. S144 .CLMBHT-0. 9 1 44 , ENGNOt  46 , 2 1-1 , ENGNOl 46 , l 1*2 .DSCNT1 ( 46 1-1 .0, 

DSCNT2-.  4G  ) -60.0 . AP SPD 1 1 46 1- 1 29 . 6  , AP3PD21  46  1-55 . 6  ,APPHT2<  461-0.121, 

ASCNTl <  46 >-5.0,ASCNT2( 46 1-15 .0.COSPD1 (  46  1-74 . 8 ,COSPD2<  46  1-166.7, 

COHT1 1461-0. 121, TX1SPD146)-8.1,LNDSPD146 1-8 .0, TOSPD( 46 1-16 . 9 , 

EGCHKTl 46 1-0.0, SHTDNTl 46 1-5 .0, TOWT<  46 1-5.0, SRTUPTl  46 1-5 .0, S 
SDSDATA 

ACDY< 1.12 1-0. 194,ACDY(2, 1 2 1-0.01 5 , ACDY( 1,46 1-0. 16 ,ACDY( 2 , 46 1-0. 10, 

ACDY< 1 .271-0. 194, ACDY( 2,27 1-0 .01 5 , ACDYt 1,321-0.1 ,ACDYl 2,32 1-0.25, 

ACDV( 1,351-0. 194, ACDY( 2, 35 1-0.015 , ACDYt 1,211-0. 143,ACDY(2,21 1-0.143, 

ACD Y( 1,26 1-0. 142, ACDYl 2,261-0. 143, ACDYl 1 , 24 1-0. 1 43 . ACDY( 2 , 24 1-0.143, 

ACHRl 7 . 1 2  1-0.007 ,ACHR(8,121-0.057,ACHR(9,12 1-0.064 , ACHR< 10, 121-0.064, 

ACHRl 1 1 , 12 1-0.054 ,ACHR< 12 . 1 2 1-0.064 ,ACHR( 13, 12 1-0.0, ACHRl 14,121-0.064, 

ACHRl IS, 12 1-0.064, ACHR( 1 6 . 1 2 1-0 .064 , ACHR< 1 7 , 1 2 ) -0 .064 . ACHR< 18,121-0.064, 

ACHRl IS, 12 1-0.064, ACHR< 20, 12 1-0.059, ACHR< 2 1,1 2 1-0.059, ACHR( 22, 12 1-0.059, 

ACHR<  23 . 12 1-0.059,aCHR( 24 , 12 1-0.059 ,ACHR( 7 ,27 1-0.0,ACHR( 8,27 1-0. , ACHRl 9 , 27 1-0 
ACHRl 10,271-0.11 .ACHRl 11,27 1-0. 11 .ACHRl 12 ,27 1-0. 1 1 .ACHRl 13,27  1-0.11, 

ACHRl 14,271-0. 11. ACHRl 1 5 . 27 1 -0 . 1 1 , ACHRl 16,27 1-0. 1 1 .ACHRl 17,271-0.11, 

ACHRl 18,27 1-0. 1 1 , 

ACHRl 7. 45 1-0.0, ACHRl 8. 46 1-0.0, ACHRl 9, 46 1-0. 13, ACHRl 10,461-0.13, 

ACHRl 11 ,461-0. 13, ACHRl 12.46 1-0 . 1 3 .ACHRl 1 3 , 46 1-0. 13, ACHRl 14,461-0.13, 

ACHRl 15,461-0. 13. ACHRl 16,46 1-0. 13, ACHRl 1 9 , 46 1-0.028 .ACHRl 20, 46 1-0.028 , 

ACHRl  2 1 .  *-6  1-0. 028,  ACHRl  22,461-0.028, 

VHMLMOl 1 >0.0833 . VHMLMOl 2 1 -0 . 0833 , VHMLMOl 3 1-0.0833 .VHMLMOl 4 1-0.0833 , 

VHMLMOl 5  >0.0833. VHMLMOl 6 1-0 . 0833 , VHMLMOl 7 1 -0.0833 . VHMLMOl 8 1 -0 .0833 , 

VHMl.MOl 9 /-0. 0833, VHMLMOl 10 1-0.0833 .VHMLMOl 11 1-0.0833 .VHMLMOl 121-0.0833, 
VHMLDVl 1  '  -0. 2.VHMLDY121-0.0, 

VHMLHRl 1 1-0.0, VHMLHRl 2 1-0 .0 , VHMLHRl 3 1-0 .0, VHMLKRl 4 1-0.0, VHMLHRl 51-0.0, 

VHMLHRl 6  >0.0, VHMLHRl 7  1-0. 1 , VHMLHRl 8 1-0 . 1 .VHMLHRl 91-0. 1 .VHMLHRl 101-0.1, 
VHMLHRl 1 1 1-0. 1 .VHMLHRl 121-0.1 .VHMLHRl i 3 1-0. 1 .VHMLHRl 141-0.1, 

VHMLHP.l  15  1-0. 1  .VHMLHRl  1 6  1 -0 .0333  .VHMLHRl  17  1-0.0333  .VHMLHRl  181-0.0333, 

VHMLHRl 19 1-0.0, VHMLHRl 20 1-0.0, VHMLHRl 21 1-0.0, VHMLHRl 221-0.0, 

VHMLHRl  23 1-0.0, VHMLHRl 24  1-0.0, 

CVABMOl 1 >0. 08333, CVABMOl 2 1-0 .08333 .CVABMOl 3 1-0.08333 , CVABMOl 4 1- .08333 , 
CVABMOl 5 1-0. 08333, CVABMOl 6 1-0 .08333 , CVABMOl 7 1-0.08333 , CVABMOl 8 1- .08333 , 
CVABMOl 9 >-.08333. CVABMOl 10 1 -. 08333 , CVABMOl 11 >-. 083333, 

CVABMOl 12 )-. 08333, 

CVABDYl 1  1-0. 1486. CVABDY121-0, 1285, 

CVABHRl 1  - -0.001 36, CVABHRl 2  >0 .001 36 .CVABHRl 3 1-0 .001 36 , CVABHRl 4 1- .001 36 , 
CVABHRl  5  .>-0.00136  .CVABHRl  6  1-0 .001 36  , CVABHRl  7  1-0.0567  .CVABHRl  8  1-0.0567  , 

CVABHRl 9  -0.0567. CVABHRl 10 1 -0 . 062 4 , C VABHR l 1 1 1-0.0624 .CVABHRl 12 >-.0624, 

CVABHRl 13 )-. 0795 .CVABHRl 1 4  1-0 .0795 , CVABHRl 1 5 1-0.0795 . CVABHRl 16  >-.071 1 , 

CVABHRl 17  >-.0711 .CVABHRl 18  1-0.0711 .CVABHRl 19  1-0.0391 .CVABHRl 201- .039* , 

CVABHRl  21  >-.0391  .Cv'ABHRl  22  1-0. 02  18,  CVABHRl  23  1-0. 0218.  CVABHRl  24  ) -.0218,5 
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*9  AEROSPACE  GROUND  EQUIPMENT 
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P  OUTPUT  LISTING  FOR  ORIGINAL  GSE  ROUTINE 
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069-T25  14  IDLE  2. 3 !0E -f 1  1.29E+02  1.90E+01  1 . 50E *tl  5.50E-01  1.00E»00 
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RUNWAY  USE  av  SPECIAL  CASE  WIND  CONDITIONS 


NUMBER  OF  LINE  SEGMENTS  MAKING  UP  THIS  TAXIWAV 
SEQUENCE  OF  CATALOGUED  LINE  SEGMENTS  MAKING  UP  THIS  TAXIWAV  •  19,  18.  4, 
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FRACTIONAL  USAGE  OF  THIS  TAXIWAV  BV  AIRCRAFT  TVPE 


NUMBER  OF  LINE  SEGMENTS  MAKING  UP  THIS  TAXIVAY 
SEQUENCE  OF  CATALOGUED  LINE  SEGMENTS  MAKING  UP  THIS  TAXIWAY  -  15,  16,  17, 


NUMBER  OF  LINE  SEGMENTS  MAKING  UP  THIS  TAX  I WAY 
SEQUENCE  OF  CATALOGUED  LINE  SEGMENTS  MAKING  UP  THIS  TAXIWAY  -  19,  18,  2, 
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-C/F  SERVICE  VEHICLE  EMISSIONS 


AVERAGE  AMOUNT  Or  FUEL  USED  PER  FILlJP  (LITERS) .  111.00 

AVERAGE  AMOUNT  OF  FUEL  SPILLED  PER  FILLUP  (LITERS) .  0. 10 

AVERAGE  AMOUNT  OF  FUEL  VENTED  PER  ARRIVAL  (LITERS) .  0.10 

AVERAGE  AMOUNT  OF  FUEL  VENTED  PER  DEPARTURE  (LITERS) .  5.68 
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KHOGRHMS  PER  DEPARTURE 
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KILOGRAMS  PER  DEPARTURE 


AIRCRAFT  TAXI  SPEED  LANDING  SPEED  TAKEOFF  SPEED  IDLE  START  UP  TIME  ENGINE  CHECK  TIME  IDLE  SHUT  DOWN  TIME 

NAME  (KM/HR)  (KM/HR)  (KM/HR)  <  Ml N/ENGINE  )  (MIN/ENGINE)  (MIH/ENC1NE > 
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SUMMARY  OF  ANNUAL  EMISSIONS  FROM  CROUND  MOBILE  SOURCES 
ALL  POLLUTANTS  IN  METRIC  TONS 
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SUMMARY  OF  ANNUAL  EMISSIONS  EROM  ENVIRONS 
ALL  POLLUTANTS  IN  METRIC  TONS 
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INPUT  DATA:  SETS  2  AND  9  FOR  REVISED  GSE  ROUTINE 
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6.2  INFORMATION  FOR  AIRCRAFT  SERVICE  VEHICLES 
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AVERAGE  AMOUNT  OF  FUEL  USED  PER  FILLUP  (LITERS) .  111.00 

AVERAGE  AMOUNT  OF  FUEL  SPILLED  PER  FILLUP  (LITERS) .  0.10 

AVERAGE  AMOUNT  OF  FUEL  VENTED  PER  ARRIVAL  (LITERS) .  0.00 
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STARTUP  3 . 1 207E*01  8.0Z23E*00  4.Z002E-0I  Z.SZ0tE»00  Z.5Z0IE-02 
TAXi  OUT  9.1460E»00  2.35UE*00  1.23I0E-02  7.385BE-0I  7.3858E-03 
ENGINE  CHECK  8.4595E»0I  1.4877£»00  8.0949E-01  1.458SE«00  4.37S6E-02 
RUNWAY  ROIL  1 . 7493E  *01  3.0763E-01  I.673SE-0I  3.0160E-0I  9.0480E-03 
CLIMB  1  1.9457E*01  3.4ZI7E-01  I.86I8E-01  3.3S46E-0I  1.0004C-0L 
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TOTAL  7 . 63  32E  +00  4.1020E*00  4.2532E-02  2.9784E-01  4.t'340E-03 
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OUTPUT  LISTING  FOR  REVISED  GSE  ROUTINE 
(WHERE  DIFFERENT  FROM  ORIGINAL  LISTING) 


304 
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*2  NAMELI3T  DATA 

SEGDaTA  ACNAME; 27  5-6HEC-121 .ACNAMEt  46  )»8HHH3E/UH1 , 

EGFAME ( 4 1  )-7H753/T58, 

EGEMFCt 1,1,41 >-172.2, EGEMFCt 1,2,41 >-9 . 40, EGEMFCt 1 , 3 , 41 >-8 . 5 .EGEMFCt 1 ,4,41 >-0 
EGEMFCt 2, 1,41 > -95. 70, EGEMFC ( 2,2,41 >-0. 60, EGEMFCt 2 , 3 , 41 )-0. 6 , EGEMFCt 2 , 4 , 41 >-0 
EGEMr Ct 3, 1,41 )=2 .000, EGEMFCt 3,2,41 )-5.10,EGEMFCt3,3,41 >-5 . 4 , EGEMFCt  3 , 4 , 41 )-0 
EGEMFC! 4,1,41 ) -0.200, EGEMFC ( 4,2,41 >• 1 . 10, EGEMFCt 4 , 3 , 4 1  )- 1 . 6 , EGEMFC( 4 , 4 , 41 >-0 
EGEMr  ci 5.1,41 )«i .000,EGEMFC(5,2,41 )-l .00, EGEMFC ( 5,3,41 )■ i .0, EGEMFCt  5 , 4 , 41 )-0 
EGFF' 1 .41 )-. 1120.EGFF(2,41 >- . 7090. EGFr <  3 , 41  )- . 744 , EGFF( 4 ,41 >-0.0, 

UCAS?< 46  >-0, IDACEGt  46 )-4 1 , 1 EGABF < 4  6  >-0, IDRRt  46  >-37, S 
SACOATA 

AT  7  HT-0 .3144,  CLMBHT-0 .9144.EMGNOC  46 , 2  >  - 1  ,  ENGNOt  46,1  >-2  ,  DSCNT1  (  46  >-l  .0, 

S jCUT2< 46 ! -60 .0 ; APSPD 1 t 46 > - 1 29 . 6 ,APSP 02 t 46 )-55 . 5 ,APPHT2( 46 >-0.121 , 

ASCNT1 < 46  >-5.0,ASCNT2t 46  > - 1 5 .0 , COSP D 1 ( 46  >-74 . 8 ,COSPD2( 46  >-166.7, 

CCHTl,  46  > -0 .  121  ,TXISPD(  46  )"8  .  1  ,  LNDSPD!  46  > -8 .0 , TOSPDt  46  >-16.9, 

EGCHKTt 45  >-0.0, SHTDNT( 46  >-5.0,TOWT<  4  6 >-5 .0, SRTUPTt 46 )-5.0,S 
13 3 DATA 

AC  3  Y  <  1  .  12  5-0. 194.ACDY(2, 12 >-0.015 ,ACDY( 1 , 46 >-0. 1 6 ,ACDY( 2 , 46 >-0. 10, 

AC 9V! 1.27  >-0. 134. ACDYt  2,27 >-0.015 ,ACDY( 1 , 32  >-0. 1 ,ACDY<  2.32 >-0.25, 

ACDYt 1 ,35  >-0. 194. ACDYt  2,35 '-0.013 ,ACDY< 1,21 >-0. 1 43 , ACDYt 2 , 21 >-0.143, 

ACDYt  1,25  ;-0.  143,  ACDYt  2,26  >-0.  143,ACDY(  1,24  >-0. 1 43  ,  ACDYt  2 , 24  >-0. 143, 

ACHRt  7 . 1 2 >-0.007 , ACHRt  8 , 1 2  5-0.057 , ACHRt  9 , 12  >-0.064 , ACHRt 10, 12 >-0.064, 

AC HR( 11 . 12 >-0.054, ACHRt 1 2 , 1 2 > -0.064 , ACHRt 1 3 , 1 2 >-0.0, ACHRt 1 4 , 12 >-0.064 , 

ACf-  fi;  15, 12  >-0.054,  ACHRt  1 6 , 1 2  > -0 .064  ,  ACHR t  1 7 , 1 2  >-0.064  .ACHRt  1 8 , 1 2  >-0.064 , 

ACHRt 19, 12 >-0.054, ACHRt 20, 12  >-0.059, ACHRt 21 , 12  >-0.059 .ACHRt 22, 12 >-0.059, 

ACHRt  23. 12 >-0.059, ACHRt  24. 12  >-0.059. ACHRt 7.27  >-0.0, ACHRt  8 , 27 >-0. .ACHRt  9 , 27 >-0 
ACHRt 10.27 )-0. 1 1 .ACHRt 11 ,27  >-0. 11 .ACHRt 12,27  >-0. 1 1 .ACHRt 13,27 >-0.11 , 

ACHRt  .4,27  5-0.  1  1  .ACHRt  15,27  >-0. 1 1 , ACHRt  16,27  >-0. 1 1  , ACHP.t  17,27  >-0. 11  , 

ACHRt  13.27  >-0.1 1 . 

ACiF.t  7, 45  >-0.0,  ACHRt  3, 46  1-0.0,  ACHRt  9, 46  >-0.13,  ACHRt  10,46  >-0. 13, 

ACHRt 1 1,46  5-0. 13, ACHRt 1 2 , 46  >-0 . 1 3 , ACHRt 1 3 , 46 >-0. 1 3 , ACHRt 14 ,46>»0. 13, 

ACHRt 15,46 )-0. 1 3 .ACHRt 16,46  >«0. 13, ACHRt 19,46  >-0.028 , ACHRt 20, 46 >-0.028 , 
aC-Rt  21.46 >-0.022, ACHRt  22,46  >-0.023, 

/KH.'IOt  1 . -0.033 3. VHMLMOt 2 ) -0 . 0333 , VHMLMOt  3 >-0.0233 .VHMLMOt 4 >-0.0833, 

YrMlMOt  5 .-0.03  3  2 .VHMLMOt 6  >-0.0833 , VHMLMOt  7 )-0 .0333 , VHMLMOt  8  >-0.0833, 

VHMLMOt 9 ; -0 .0533 . VHMLMOt 10 > -0 .0833 , VHMLMOt 11 >-0 .0833 , VHMLMOt 125-0.0833, 

VHMlD  1  ;»0.  2  ,  ViMLDYt  2  )-0.0, 

V.-i  -.hr;  1  1-0.0.V HMLHRt  2  )-0.0,  VHMLHRt  3  >-0.0,VHMLHR(  4  >-0.0, VHMLHRt  5  )-0.0, 

VRML  HR t 6  >-0.0, VHMLHRt 7  5-0.1 .VHMLHRt  8  5-0.1 .VHMLHRt 9  >-0. 1 .VHMLHRt 101-0.1, 
VHMLHRt  1 1  )-0. 1 .VHMLHRt  12  5-0.1 .VHMLHRt  13  1-0.1 .VHMLHRt 14  >-0. 1 , 

VnMLHRt 1 5 ) -0 . 1 , VHMLHRt 1 6 > -0 . 0333 , VHMu HRC 1 7 ) -0 . 0333 , VHMLHRt 18>-0.0333, 

.'HHLHRt  19  >-0.0,  VHMLHRt  20  ) -0 .0 ,  VHML HRt  2  1  > -0 .0,  VHMLHRt  22  5-0.0, 

VHMlHR ’ 23  > -0.0. VHMLHRt  24  >-0.0, 

CVABMOt 1 >-0.08333 .CVABMOt  2  > -0 . 083 33 , CVABMOt  3  5-0.08333 .CVABMOt 4  >-.08333, 

C  VAuMCt 5  >-0.08333. CVABMOt  6  > -0 . 08 333 , CVABMOt  7  > -0 . 08333 , CVABMOt 8  >- .08333, 
CVA3MO; 3  -.03373. CVABMOt 10 >«. 083 3 3 , CVABMOt 11 >-.083333, 

2  v  A • MO '  12 >-.05333. 

CVAEO i ( 1  -0. 1485, CVABOY ( 2 ) -0. 1285, 

C.\  ASHr.t  i  .-0.001  36  ,  CVABHRt  2  > -0 . 001  36  ,  CVABHRt  3  )-0.00136,CVABHRt  4  )-  .00136, 
CVABHRt  5  -0.001  36  .CVABHRt  6  >-0. 001  36  , CVABHRt  7  >-0.056  7  .CVABHRt  9  >-0.0567, 
CVABHKIS;«0. 0567, CVABHRt 10 >-0 . 0624 , CVABHRt 11 >-0.0624 .CVABHRt 12)-. 0624, 

CVABHRt 13 >-.0795, CVABHRt 14 >-0.0795 .CVASHRt 15 >-0.0795 .CVABHRt 165-.0711, 

CVABHRt 17  >-.071 1 .CVABHRt 1 8 ) -0 .07 1 1 , CVABHRt 19  >-0.0391 .CVABHRt  20 >-.0391 , 

CVAoHR! 21 >-.0391 .CVABHRt  22  >-0.02 1 8 , CVABHRt 23  >-0 .02 1 8 , CVABHRt  24 >-.0218,5 
SGSDATA 

SRVCTM  41. 1 5-0.70, SRVCTMt  4 1 , 2  >-0. 70 , SRVCTMt  4 1  , 6 >-0 . 53 , SRVCTMt 4 1 , 8 >- 1 . 10 
SRVCTMt  41 , 10 J-0.58, SRVCTMt  41 , 12  >-0 . 33 . SRVCTMt 41 . 13  >-0.50, 

SRVCTM. 41 . 107-0. 30, SRVCTMt  41 ,21 >-0. 52 , SRVCTMt  4 1 , 22  >-0.52, 

SRVCTMt  4L.-ZX1--0 . 24  ,  SRVCTMt  41 ,25)-l  .25,  SRVCTMt  41 , 27  )-0 .04  ,  $ 


fl 


305 


c 


GROUND 

SERVICE  EQUIPMENT 

1  7 

1647*2. 

509219. 

1 

5*. 

11110101 

2 

5*. 

11110101 

4 

100. 

10010001 

6 

100. 

11110111 

7 

100. 

00000001 

8 

100. 

10000001 

10 

100. 

11110101 

12 

100. 

11110111 

14 

100. 

1001001 1 

16 

100. 

10010001 

17 

100. 

00000010 

21 

50. 

10000000 

22 

50. 

10000000 

23 

1 00. 

1 0000000 

25 

100. 

11110101 

27 

100. 

10000000 

29 

100. 

00010001 

306 


INPUT  DATA:  SETS  2  AND  9  FOR  ORIGINAL  GSE  ROUTINE 


G 

BB 
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2  NAME LI ST ( EGDATA.ACDATA, DSDATA ) 

3E3DATA 

EGFF!  1 . 1 )-l . 131 ,  EGFF<2,1  >-2.720,  EGFF(  3, 1  >-8.921 ,  EGFF(  4, 1  >-32.238, 

EGFF! I, 6>-. 453,  EGFF ! 2 , 6 >• 1 . 462 ,  EGFF< 3 , 6 >-2 . 630,  EGFF ( 4 , 6 >-8 . 323 , 

£GFF< 1.8 >-l. 134,  £GFF( 2 , 8 >-l . 500,  EGFF ! 3 , 8 >- 1 1 . 909 , 

EGFF < 1 , 9  >« . 693 ,  EGFF! 2 , 9 >- . 827 .  EGFF! 3 , 9 >-l . 967 , 

EGFF!  l.lO-. 231,  EGFF! 2 , 14 >- . 698 ,  EGFF  <  3 , 1 4  )-  1 .095  , 

EGFF< 1 ,22  >-l .134,  EGFF! 2 , 22 >- 1 . 500,  EGFF < 3 , 22 >- 1 1 . 909 , 

EGFF < 1 . 22  >- . 459 ,  EGFF! 2 , 23 >-l . 423 ,  EGFF <  3 , 23  >-2 . 456 , 

EGFF <  1,25  )*. 959 ,  EGFF ! 2 , 25 >-7 . 37 ,  EGr F ( 3 , 25 >-8 . 755  ,  EGFF! 4 , 25 >-8 . 755 , 
cG£MFC< 1.1,1 >=56.74, EGEMFC!  2.1 , 1 >-10. 73,EGEMFC( 3. 1 , 1  >-2 . 47 , EGEMFC! 4 , 1 , 1 >-.500, 
EGEMFC< 1.2,1 >=11 .40, EGEMFC! 2.2, 1 >-1.33,  EGEMFC(3,2, 1  )«4. 25, EGEMFC< 4,2,1 >-2.222, 
EGEMFC ( 1 ,3, 1 >-2.28,  EGEMFC! 2,3, 1 >-0.22,  EGEMFC!  3,3,1 >-8.94,EGEMFC( 4,3, 1 >-2.361 , 
EGEMFC( 1 .4, 1 >=4.00.  EGEMFC! 2,4, 1 >-0.01 ,  EGEMFC! 3,4, 1 >-3 . 1 1 , EGEMFC! 4 , 4 , 1 >-0.154, 
EGEMFC! 1 . 1,6 >-179. 57, EGEMFC! 2. 1,6 >-29. 90, EGEMFC! 3, 1,6 >-1.26, 

EGEMFC! 4, 1 ,6) -0.013, 

EGSMCC! 1 ,2, 6 >-43.34, EGEMFC! 2, 2, 6 >-3.37,  EGEMFC! 3 , 2 , 6 >-2 . 32 , EGEMFC! 4 , 2 , 6 >-0.01 7 , 
EGEMFC! 1 .3, 6 >-29. 33, EGEMFC! 2, 3, 6 >-0.84,  EGEMFC! 3 . 3 , 6 >-2 . 68 , EGEMFC! 4 , 3 , 6 >-0.01 8 , 
EGEMFC! 1 .4,6  >-26.04, EGEMFC! 2, 4, 6 >-0.07,  EGEMFC! 3 , 4 , 6 >- 1 . 99 , EGEMFC! 4 , 4 , 6 >-0.008 , 
EGEMFC!  1 , 1 ,8 >-66.73, EGEMFC! 2, 1 , 8  >-22 . 98 , EGEMFC! 3 , 1 , 8  >-2 . 95 , EGEMFC! 4 , 1 , 8 >-0. 3 , 
EGEMFC! 1 .2,8  >-38.50, EGEMFC! 2 . 2 , 8 >- 1 2 . 90. EGEMFC! 3 , 2 , 8 >-3 . 75 , EGEMFC! 4,2,8 >-l .4, 
EGEMFC! 1 ,3,8 >-0.59,  EGEMFC! 2 , 3 , 8 >-0. 1 8 ,  EGEMFC! 3 . 3 , 8 >-28 . 52, 

EGEMFC! 4. 3,8  >-l .5, 

EGEMFC! 1.1, 9 >-14. 01, EGEMFC! 2, 1,9 >-10. 39, EGEMFC! 3, 1,9 >-6.17, EGEMFC! 4, 1,9 >-0.611, 
EGEMFC! 1 .2.9 ) -6. 08,  EGEMFC! 2 , 2 , 9  >-4 . 80,  EGEMFC! 3 , 2 , 9 >-6 . 46 , EGEMFC! 4 , 2 , 9 >-l .042, 
EGEMFC! 1 ,3, 9) -2. 00.  EGEMFC! 2 , 3 , 9 >-2 . 25  ,  EGEMFC! 3 , 3 , 9 >-9 . 26 , EGEMFC! 4 , 3 , 9 >-0. 565 , 
EGEMFC: 1,1,14  >-127 . 17.  EGEMFC! 2, 1 , U >-19.50,  EGEMFC! 3. 1 , 14>-1 .53, 

EGEMFC! 4. 1 , 14  >-.729, 

EGEMFC! 1,2, 14>-49. 08.  EGEMFC! 2 , 2 , 1 4 >- 1 . 29 ,  EGEMFC! 3,2, 14 >-2.67, 

EGEMFC! 4,2, 14  >-.017, 

EGEMFC! 1,3,14 - -31. 32,  EGEMFC! 2 . 3 , 14 >-0. 50,  EGEMFC! 3 . 3 , 1 4 >-3 . 60, 

EGEMFC: 4.3, 14  >-.020, 

EGEMFC! 1.1,22 >-66.73,  EGEMFC! 2 , 1 , 22 >-22 . 98 ,  EGEMFC! 3 . 1 . 22 >-2 . 95 , 

EGEMFC! 4. 1,22)-. 02 1 , 

EGEMFC! 1 .2,22  >-38.50,  EGEMFC <  2 , 2 , 22 > - 1 2 . 90 ,  EGEMFC! 3 , 2 , 22 >-3 . 75 , 

EGEMFC!  4. 2, 22  .'=.016, 

EGEMFC! 1 . 3 , 22  >»0. 59 ,  EGEMFC < 2 , 3 , 22 >-0. 1 8 ,  EGEMFC! 3 . 3 , 22 >-28 . 52 , 

EGEMFC <4, 3, 22)-. J09 , 

EGEMFC! 1.1,23 >-70. 91,  EGEMFC! 2 , 1 , 23 >-9 . 85 ,  EGEMFC! 3 , 1 , 23 >-l . 49 , 

EGEMFC! 4 . 1 , 23 )» .026 , 

EGEMFC! 1 ,2,23 >-14.30,  EGEMFC ! 2 , 2 , 23 >-0 . 32 ,  EGEMFC! 3 , 2 , 23 >-3 .09 , 

EGEMFC! 4.2,23)-. 158, 

EGEMFC! 1.3, 23>-3. 88.  EGEMFC! 2 , 3 , 23 >-0.09 ,  EGEMFC! 3 , 3 , 23 >-4 . 7 1 , 

EGEMFC! 4.3,23  >-. 167, 

EGEMFC! 5. 1 ,23  >-l .0.  EGEMFC! 5 , 2 , 23 >- 1 .0 ,  EGEMFC ! 5 , 3 , 23 >- 1 .0, 

EGEMFC! 1 . 1 ,25  >  =  50.0,  EGEMFC! 1 , 2 , 25  >-6.6,  EGEMFC! 1 ,3,25  >«1 .2, EGEMFC! 1 ,4,25>-l .2, 
EGEMFC! 2. 1 ,25 >-9.6,  EGEMFC! 2 , 2 , 25 >»  1  . 4 ,  EGEMFC ( 2 , 3 , 25 >- . 6 ,  EGEMFC! 2 . 4 , 25 >- . 60, 
EGEMFC! 3 , 1 ,25  > -2.0.  EGEMFC! 3, 2 , 25  >-2.7,  EGEMFC! 3 , 3 , 25  >-4 . 3 , EGEMFC! 3 . 4 , 25  >-4.3, 
EGEMFC! 4. 1 ,25 >=.6.  EGEMFC! 4 , 2 , 25  >-2.7,  EGEMFC! t , 3 , 25 >»2 . 5 , EGEMFC! 4 , 4 , 25 )-2 . 5 , 
EGEMFC! 5. 1 ,25  '=1 .0.  EGEMFC! 5 , 2 , 2  5  >-l .0,  EGEMFC ! 5 , 3 , 25 >-l . 0 , EGEMFC ( 5 . 4 , 25 >-1.0, 
EGNAME  (  23  ) -3H0 50  . 

15ACEG! Zo  >-23, 1 EGAEF ( 23  > =0. I ACABF ( 3 3  > =0 , 

EGNAME ■ ZZ  >-5H0T-30 . 

IDACEG! 20  >-25, ! ZGASF! 25 >*?. I ACABF ( 20 > -0 , 

EGEMFC!  1 . 1 ,25  >-50.0,  EGEMFC! 1 , 2 , 25  >-6 . 6 ,  EGEMFC! 1 , 3 , 25  > *  1 . 2 , EGEMFC! 1 ,4 ,25  >-l .2, 
S 

SAC DATA 
S 

SDSDATA 

VHMlMO!  1  .-0.0832. VhMLMOi  2 ) -0 . 0833 , VHMLMO!  3 >-0.0833 .VHMLMO!  4>-0.0833, 

VHMLMO! 5 ; -0.0833 . VHMLMO!  6 > -0 . 08 3 3 , VMML MO!  7 >-0 . 0833 . VHMLMO!  8>*0.0833, 

VHMLMO! 9  >-0.0833 .VHMLMO!  10 > -0 . 08 3 3 , VHMLMO!  1 1  > -0 .0833 , VHMLMOT 1 2  > -0 . 0833 , 

VHMLDV!  1  >-0. 20, VHMLDY! 2  >-0.0, 
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VHMLHRt  1  >-0.000, VHMLHRt  2  )•}.»«,  VHMLHRt  3  )>ff.00f,  VHMLHRt  4)*0.000, 

VHMLHRt  5 >-0.000, VHMLHRt  6 >-0 .050 , VHMLHRt  7 >-0.050, VHMLHRt  8>-0.100, 

VHMLHRt  9  >“0. 100, VHMLHRt 10>-0. 100, VHMLHRt 11 >-0. 100, VHMLHRt 12)-0. 100, 

7HMLHR( 13 >-0. 100, VHMLHRt 14>-0. 100, VHMLHRt 15>«0. 100, VHMLHRt 16 >-0.034, 

VHMLHRt 17 >-0.033, VHHLHR< 18 >-0.033 , VHMLHRt 19 >-0.000, VHMLHRt 20 >-0.000, 

VHMLHRt 21 ) -0.000, VHMLHRt  22  >“0.000, VHMLHRt  23  >-0.000, VHMLHRt  24 ) -0.000, 

CVABMOt 1 >-0.0833, CVABMOt  2 >-0.0833 .CVABMOt  3 >-0.0833 , CVABMOt  4>-0.0833, 
CVABMOt  5  >-0.0833 .CVABMOt  6 >-0.0833, CVABMOt  7 >-0.0833 .CVABMOt  8>-0.0833. 
CVABMOt  9  --0.0833. CVABMOt 10 >-0 .0833 , CVABMOt 11 >-0.0833 , CVABMOt 12 >-0.0833, 
CVAEOYt 1 >-0. 182 .CVABDVt  2  >-0.045 , 

CVABHRt  1 >-0.0030. CVABHRt  2 >-0.0029 . CVABHRt  3 >-0.0029 .CVABHRt  4 >-0.0101, 
CVABHRt  5>-0. 0101, CVABHRt  6 >-0.0101 .CVABHRt  7 >-0.0682, CVABHRt  8>-0.0682, 
CVABHRt  9>-0. 0682. CVABHRt 10J-0.049B .CVABHRt 11 >-0.0498, CVABHRt 12>-0.0498, 
CVABHRt 135-0. 0574. CVABHRt 14 >-0.0574 .CVABHRt 15 >-0.0574 .CVABHRt 16>-0.0821, 
CVABHRt 17  >-0.0821 .CVABHRt IS  >-0.0821 .CVABHRt 1 9  >-0.0356 .CVABHRt  20 t -0.0356, 
CVABHRt  21 >-0.0356 .CVABHRt  22  >-0.0272 .CVABHRt  23  >-0.0272, CVABHRt  24  >-0.0272, 
FLMOt 1 , 1 i -0.0833 . r LMOt  2 , 1 >-0 .0833 , FLMOt  3 , 1 >-0 .0833 , FLMOt  4,l>-0.0833, 

FLMOt  5 , 1  /-0.0S33 , FLMOt  6 , 1 >-0.0833 , FLMOt  7 , 1 >-0.0833 , FLMOt  8,l>-0.0833, 

FLMOt 9,1  -0.0833, FLMOt 10,1 >-0.0833 .FLMOt 11,1 >-0 .0833 , FLMOt 12 , 1 >0.0833, 

FLMOt 1 ,2 /-0. 0600, FCMOt  2, 2>-0. 0874, FLMOt  3 , 2 >-0.0780, FLMOt  4,2>-0.0694, 
FLMOt5,2)-0. 0900, FLMOt  6 , 2 >-0. 1 203 , F LMOt  7 , 2 >-0 .0736 , FLMOt  8,2>-0.0914, 

FLMOt 9,2  >-0.0984, FLMOt 10, 2  >«0 . 0702 , FLMOt 1 1 , 2  >-0.0994 , FLMOt 12,2 >-0.0616, 

FLMOt 1 ,4 ;-0. 0833. FLMOt  2 , 4 > -0 .0833 , FLMOt  3 , 4 >-0 .0833 , FLMOt  4,4>-0.0833, 
FLMOt5,4>-0. 0833. FLMOt  6 , 4 >-0. 0833 , FLMOt  7 , 4 >-0.0833 , FLMOt  8,4>-0.0833, 

FLMOt  9.4  -0.0833. FLMOt 10, 4  >-0.0833, FLMOt 1 1 ,4 >-0.0833 , FLMOt 12, 4 >-0.0833, 
r’.DYt  1 , 1  >-0. 193,FLDY(  2, 1  >-0.035, 

FLDVt  1 , 2  :■  -0. 1 82  ,  FLDYt  2 , 2  >-0.045  , 

FLDYt 1 ,4 ) -0.200. FLDYt  2,4  >-0.000, 

FLHRt  1, 1 >-0.0,FLHR(  2 , 1 )»0.0, FLHRt  3 , 1 >-0.0, FLHRf  4,l>-0.0, 

FLHRt  5 , 1 )-0 .0, FLHRt  6 , 1 >-0.033 . FLHRt  7 , 1 >-0.033 , FLHRf  8,l>-0.033, 

FLHRf  9,1 )-0. 100, FLHRf 10, 1 )-0. 100, FLHRt 1 1 , 1 >-0. 133, FLHRf 12, 1 >-0. 136, 

FLHRt 13,1 !-0. 133, FLHRf 14,1 >-0. 100, FLHRt 15,1 >-0. 100, FLHRt 16,1 >-0.033, 

-uHRf 17, 1 >-0.033. FLHRf 18,1 >-0.033 , FLHRf 19,1 >-0.000, FLHRf 20, 1 >-0.000, 

FLHRf  21 , 1 >-0.000. FLHRt 22, 1 >-0.000, FLHRf 23, 1 >-0.000, FLHRf 24, 1 >-0.000, 

FLHRt  1 .2>-0.0, FLHRf  2 , 2 >-0 .0 , FLHRf  3 ,2 >-0.0, FLHRt  4,2>-0.0, 

FLHRt  5,21-0.0,  FLHF.f  6 , 2  >-0 .000,  FLHRf  7 , 2  )-0 .058a  ,  FLHRt  B,2>-0.0588, 

FLHRt  9,2  >-0.0588. FLHRf  10, 1  > =0 . 0588 , FLHRt  1 1 , 2  >-0.0588 , FLHRf 1 2 , 2  >-0.0588 , 
FLHRf 13. 2 >-0.0538. FLHRt 1 4 , 2 >«0 . 0588 , F LHRt 1 5 , 2 > -0 . 0588 , FLHRt 16,25-0.0588, 
FLHRt 17, 2 ) -0.0538, FLHRt 18,2  >-0,0583 .FLHRt 1 9 , 2  >-0. 0588 , FLHRt  20,2  >-0.0588, 
FLHRt  2 1.2 >-0.0588, FLHRt 22, 2 >-0.0588, FLHRt 23, 2 >-0.0588, FLHRf 24,2 >-0.0, 

FLHRf  1 ,4)-0.0. FLHRt  2 , 4 )«0.0, FLHRf  3,4  >-0 . 0, r LHRt  4,4>-0.0, 

FLHRf  5,4 >-0.0, FLHRt  6 , 4 )«0 . 000 , F LHRt  7 , 4 >-0. 100 , FLHRf  8.4>-0.100, 

FLHRt  9,4  )-0.  i  .FLHP.t  10,4  >-0. 1  .FLHRt  11 ,4  >-0. 1  .FLHRt  12,4  >-0. 1 , 

FLHRf 13,4  >-0. 1 , -LHRt 14,4  >-0. 1 .FLHRf 15 , 4  >«0. 1 , FLHRt 1 6 . 4 )-0. 1 , 

FLHRf  17 , 4  >-0.0  FLHRf  18,4  >-0.0,  FLHRf  19,4  >-0.0,  FLHP.t  20, 4  >-0.0, 

FLHRf  21 , 4  >-0.0, FLHRt  22,4  >-0.0, FLHRf  23,4  >-0.0, FLHRt  24,4  >-0.0, 

CVENMOU  .’-0.0600. CVENMOt  2  >-0.0783  .CVENMOf  3  >-0.0822  .CVENMOf  4>-0.0327, 
CVENMOf  5 / -0.08 5 4 .CVENMOt  6 >-0.0846 .CVENMOf  7 >-0.0361 .CVENMOt  8>-0.0870, 
CVENMOf  9  '-0. 0636. CVENMOt 10 i-0 . 0857 .CVENMOf  1 1 > -0 ,0828 , CVENMOt 1 2  >-0 . 08 1 6 , 

C VEND Y<  1  =0. 1 4  23 . CVE  NO Y (  2 )-0. 1  42  8, 

CVENHRt  1 >-0.005. CVENHRf  2 > -0 . 003 , CVENHRf  3 >-0.001 .CVENHRt  45-0.002, 

CVENHRt  5 >-0.006, CVENHRt  6 > -0 .040 . CVE NHRt  7 > -0 . 090 , CVE NHRt  8)-0.067, 

CVENHRt  S  >-0.042. CVENHRt  10 >-0 . 044 .CVENHRt  11  > -0 . 04  4 , CVE NHR ( 12>-0.045, 

CVENHRt  12  >»0. 04c, CVENHRf  14 ) -0 . 05 3 , CVE NHRt 1 5 > -0 . 064 , CVE NHRt 16>-0.093, 

CVENHRt 17 >«0. 102 .CVENHRt 1 3  > -0 . 06 4 , CVENHR t 1 9  > -0 . 054 , CVENHRt  20 >-0.041 . 

CVENHRt  2.’  >  *-0.034,  CVE  NHRt  22  >-0 . 02  6  ,  CVENHRt  23  >-0.022  .CVENHRf  24  >-0.01 1  , 

FuDYt  2,5  -0. ,  FLDVt  2,7  >-0. .FLDYt  2,5  >-0. , 

FLDYt 1 ,6  -0. ,  FLDYt 1 ,7 )-0. .FLDYt 1 ,5  >-0. , 

FLMOt  1 .5  -  -0. .FLMOt  2,5  >-0. .FLMOt  3 , 5  >-0. , FLMOt  4 , 5  >-0. , FLMOt 5 , 5 )-0. , FLMOt 6,5 >-0 
FLMOt  7,5  >-0. , FLMOt  8 ,5  >-0. , FLMOt  9 , 5  >-0. .FLMOt 10.55-0. .FLMOt 1 1 ,5  >-0. , 

FLMOt 1 .6 .  -0, .FLMOt  2 , 6  >-0. , F LMOt  3 , 6  > -0. , FLMOt  4 , 5  5-0 . , FLMOt  5 , 6  >-0. .FLMOt  6,6  >-0 
FLMOt  7,6  .--0,  .FLMOt  8,6  )-0.  .FLMOt  9,6  >«0.  .FLMOt  10,65-0.  ,  FLMOt  ll„6>-0.  , 

FLMOt 1 ,7  >«0. .FLMOt  2,7  >-0. , FLMOt  3 , 7  > -0 . , FLMOt  4 , 7  >-0. , FLMOt  5 , 7 >-0. , FLMOt  6,7  >-0 
FLMOt  7,7  i-0. , F LMOt  8,7  >«0. .FLMOt  9 , 7  >-0. .FLMOt 10,7  >-0. , FLMOt 11,7  5-0., 
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FLMO< 12. 5) *0. , FLMO( 12, 6 )-*. , FLMO( 1 2 , 7 >-0 
S 


fl 
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1 

« 

t  ' 

i 

s 


«S  AEROSPACE  GROUND  EQUIPMENT 


.574 

.040 

.002 

.005 

.001 

.133 

.008 

.001 

.001 

.001 

.674 

.040 

.002 

.005 

.001 

.674 

.040 

.002 

.005 

.001 

.072 

.007 

.014 

.007 

.002 

.003 

.001 

.001 

.0001 

.001 

.072 

.007 

.014 

.007 

.002 

.072 

.007 

.014 

.007 

.002 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

.674 

.040 

.002 

.005 

.001 

.133 

.003 

.001 

.001 

.001 

.574 

.040 

.002 

.005 

.001 

.674 

.040 

.002 

.005 

.001 

.072 

.007 

.014 

.007 
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INFORMATION  ON  AIRCRAFT  ACTIVITY.  PARKING  AREAS.  TAXIWATS.  AND  RUNWAYS 
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GROUND  LEVEL  '"('ORDINATES  AVERAGE  EMISSION  GROUND  LEVEL  COORDINATES  AVERAGE  EMISSION 

LINE  OF  fNE  END  OF  LINE  HEIGHT  IMETERS)  WIDTH  OF  DELTA  Z  AT  OPPOSITE  END  OF  LINE  HEIGHT  (METERS)  SEGMENT 

NO.  X(  1  )  Y(  1  )  XII)  YU)  LINE  (MET)  (METERS)  X(Z>  Y(Z)  XiZ)  YIZ)  LENGTH  (KM) 


440.8*0  3684.430 


FRACTIONAL  USAGE  OF  THIS  TAXIWAY  BY  AIRCRAFT  TYPE 
S  T  27  T  38  TRANSENT 

-00  1.00  0.00  0.00 


OUTBOUND  TAX  I WAV  ID  NUMBER  -  2 

ID  OF  PARKING  AREA  TO  WHICH  THIS  TAXIWAV  IS  KEYED 
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FRACTIONAL  USAGE  OF  THIS  TAXIWAY  BY  AIRCRAFT  TYPE 
37  T  38  TRANSENT 

.00  0.00  0.00 


COORDINATES  ( KM >  AVERAGE  EMISSION  HORIZONTAL  PLUME  VERTICAL  PLUME  RUNWAY  VECTOR  RUNWAY 


NUMBER  OF  LINE  SEGMENTS  MAKING  UP  THIS  TAXIWAV 
CNCE  OF  CATALOGUED  LINE  SEGMENTS  MAKING  UP  THIS  TAXIWAY  -  9.  7,  5. 


INFORMATION  FOR  AIRCRAFT  SERVICE  VEHICLES 
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SE39ATA 
EGFF t  1  . 1 
E  G  P  r  <  1 
2GF  =  <  i 


NAME  L I S  T ( EG  0 ATA , AC  DATA , D  S DATA ) 


EGFF( 2 , 1 )-2 . 720, 

EGFFt2,6>-l .462, 

EGFF t  2 , 8 )-l . 500, 

EGFF t  2 , 9  . 827 , 

EGFF<2, 14)-. 698, 

EGFF<  1 ,221*1 . 134,  EGFF(  2 , 22  >-l  .  500 .  EGFF<  3 , 22  >-  1 1 . 909 , 
EGF”< 1 . 23 >-.459 ,  EGFFt  2,23  >  =  1 .423,  EGFFt  3 , 23  )-2 . 456 , 
EGFF<  2,25 >-7.37, 


1.131, 
6 .-.453, 
a  -i .134, 
EGFF  < 1.9'-. 693, 
EGFF  < 1.14)-. 231, 


EGFF ( 3 , 1 >-8 . 921 , 
EGFF ( 3 , 6 )-2 .630, 
EGFFt3, 83-11.909, 
EGFF ( 3 , 9 )- 1 .967 , 
EGFF<  3, 14  >-l .095, 


EGFF ( 1.25  >-.959. 
EGEMFCt 1 
EGEMFCt 1 
EGEMFCt 1 
EGEMFCt 1 
EGEMFC( 1 


EGFF (4,1 >-32.238, 
EGFF ( 4 , 6 )-8 . 323 , 


EGFF(4, 25 >-8.755, 


EGFF( 3 , 25  >-S . 756 . 

1 , 1  )-56.7-i,EGEMFC( 2, 1 , 1 >-10. 73,EGEMFC( 3. ! , 1 >-2.47, EGEMFC( 4 , 1 , 1 >-.500, 
2,1 >-l 1 .40,EGEMFC(2,2, 1 >-1.33,  EGEMFCt 3,2,1 >-4 . 25 , EGEMFC(  4 , 2 , 1 >-2.222, 
3,1 >=2.28,  EGEMFC(2.3,1 >-0.22,  EGEMFC(3,3,1 >=8 . 94 , EGEMFCt 4 , 3 , 1 >-2.361, 
4,1 >  =  4.00.  EGEMFCt  2,4,1 3-0.01 ,  EGEMFCt 3. 4, 13-3.11, EGEMFCt 4,4,1) >0.154, 
1 ,6  >-l 79. E7, EGEMFCt  2, 1 ,6  >-29 . 90, EGEMFCt 3 . 1 ,6  >-l .26, 

EGEMFCt  4. 1 ,5  >-0.013, 

EGEMFCt 1 .2, 6 >-43. 34. EGEMFCt  2, 2, 6 >-3.37,  EGEMFCt 3 . 2 , 6 >-2 . 32 , EGEMFCt 4 , 2 , 6 >-0.01 7 , 
EGEflrCf 1 .3,6>=29.33,EGEMFC<2,3,6>-0.34,  EGEMFC< 3 , 3 , 6 >-2 . 68 , EGEMFCt 4 , 3 , 6 >-0.018 , 
EGEMFCt 1 .4, 6 >-26.04, EGEMFCt 2, 4, 6 >-0.07.  EGEMFCt 3 , 4 , S >- 1 . 99 , EGEMFCt 4 , 4 , 6 >-0.008 , 
EGEMFCt 1 . 1 ,8 >-56.73, EGEMFCt  2, 1 , 8 >-22 . 96 , EGEMFCt 3 , 1 , 8  >-2 . 95 , EGEMFCt 4 , 1 , 8 >-0. 3 , 
EGEMFCt 1 .2,8  >-38. 50, EGEMFCt  2,2,8  >-12. 90, EGEMFCt  3,2,8  >»3 . 75 , EGEMFCt 4,2,8 >-l .4, 
EGEMFCt 1 .3, 8>-0. 59.  EGEMFCt 2 , 3 , 8 >-0. 1 S .  EGEMFCt 3 . 3 , 8 >-28 . 52 , 

EGEMFCt 4.3,8 >-l .5. 

EGEMFCt 1 , 1 ,9  >  =  14 ,01 .EGEMFCt 2, 1 ,9  >-10, 39 , EGEMFCt 3, 1 ,9>»6. 17, EGEMFCt 4, 1 ,9 >-0.611 , 
2,9) =6. 08.  EGEMFCt 2, 2, 9 >-4,80.  EGEMFC t 3 , 2 , 9 >=6 . 46 , EGEMFCt 4 , 2 , 9 )-l .042 , 


.3,9) 

1,145 


! ,  22  > 
3,22  > 


,2,23 

.3.23) 


.00.  EGEMFCt 2, 3,9 >-2.25.  EGEMFCt 3 . 3 , 9 >-9 . 26 . EGEMFCt 4 , 3 , 9 )-0. 565 , 
127.17,  EGEMFCt  2, 1 , 14  >-19.50, 

.729, 


49.08, 
.017, 
31.32, 
.020, 
56 . 73 , 
.021  , 
38.50, 
.016, 
0. 5  si. 

.  009 , 
70.91, 
.026  . 
14.80, 


EGEMFC12, 2. 141-1.29, 
EGEMFCt  2,3, U >-0.50, 


EGEMFCt 1 
EGEMFCt 1 
EGEMFCt i 
EGEMFCt  4. 1,14) 

EGEMFCt 1,2,14) 

EGEMFCt  4.2, 14  > 

EGEMFCt  1.3,14) 

EGEMFCt  4.3,14) 

EGEMFCt 1.1,22) 

EGEMFCt  4,1,22) 

EGEMFCt 1.2,22) 

EGEMFCt  4 
EGEMFCt 1 
EGEMFCt 4.3,22) 

EGEMFCt 1.1,23) 

EGEMFCt 4.1,23) 

EGEMFCt 1 .2,23) 

EGEMFCt 4 
EGEMFCt 1 
EGEMFC! 4.3,23) 

EGEMFCt  3  1,23) 

EGEMFC »  i  .  1 ,25  ) 

EGEMFCt  2.1,25) 

EGEMFCi 3.1,25) 

EGEMFCt  4.1,25) 

EGEMFC-.  5.1,25) 

EGNAME-.  EG  >-3HJ 50 . 

I  DACES  (  7  1  >-23,  I  EGALF  t  23  > -0 , 1 ACABF  (  33  >-0, 
EGrtAMEt  2 5  >=5HJT-3D. 

I  DACES-  E.7  >  -25  .  1  EGABF \  25  >»0.  I  ACABF  (  2  0  1=0. 
EGEMFCt 1 . 1,25 >-50.0,  EGEMFCt 1.2, 25 >-6.6, 
S 

SAC DATA 


EGEMFCt  3, 1 , 14 )-l .53 , 
EGEMFCt 3, 2, 14 >-2.67, 
EGEMFCt3,3,14)-3.60, 


EGEMFCt  2, 1 .22  )«22. 98,  EGEMFC! 3 , 1 , 22 >-2 . 95 , 
EGEMFCt  2  ?, 221-12. 90,  EGEMFC ( 3 , 2 , 22 >-3 . 75 , 


EGEMFCt 2.3,22 >-0  18, 
EGEMFCt  2, 1 ,23  >-5.85, 
EGEMFCt  2,2,23  >-0.32, 


EGEMFCt3,3,22>-28.52, 
EGEMFCt  3, 1 .23 )-l .49, 


.153, 

3.38, 

EGEMFCt  2 , 3 , 23  )«0 

.  167, 
1  .0. 

EGEMFCt 5, 2, 231-1.0. 

50.0, 

EGEMFCt 1 , 2 , 25  >-6 . 5 

r  .6. 

EGEMFCt  2,2,25 )-l .4 

2.0. 

EGEMFCt3, 2, 251-2.7 

.6. 

EGEMFCt  4.2,251-2.7 

1.0. 

EGEMFCt  5 , 2 , 25  >-l  .0 

EGEMFCt  3,2,23  >-3.09. 

19,  EGEMFCt 3,3,23 >-4.71 , 

EGEMFCt  5.3,231-1 .0, 

EGEMFCt l ,3,25 >-l .2, EGEMFCI 1.4, 25 >-1,2, 
EGEMFCt  2,3,25  >-.6,  EGEMFCt  2 , 4 , 25 >- . 60, 
EGEMFCt  3,3,25  )-4 , 3 , EGEMFCt  3 , 4 , 25  >-4.3, 
EGEMFCt  4,3,25  >  =  2 . 5 , EGEMFCt 4 , 4 , 25  >-2.5, 
EGEMFCt  5,3,25  >- 1 .0 , EGEMFCt  5 , 4 , 25  >-1.0. 


EGEMFCt 1 ,3,25 >-l .2. EGEMFCt 1,4, 25 >-1.2, 


$ 

iOSOAtA 

VHMLMOt 1  --0.0833. VHMLMOt  2 > -0 . 0S3 3 , VHMLMOt  3 >-0.0833 , VHMLMOt  4>-0.0823. 
VHMLMOt 5  -0.0833. VHMLMOt  6 > -0 . 0833 , VHMLMOt  7 > -0 . 0833 . VHMLMOt  81-0.0833. 
VHMLMOt 9 : -0.0833. VHMLMOt 10 > -0 . 083 3 , VHMLMOt 1 1 > -0 . 0333 , VHMLMOt 12  >-0.0833 , 
VHMLCV  1  «0.20,7HMLDY< 2 >-0.0, 
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i 


VHMLHR<  1 >-0.000. VHMLHR!  2  >-0.000,  VHMLHR!  3  >-0.000,  VHMLHR(  4 >-0.000, 

VKM-HRC  5>*0.000,VHMLHR<  6 >-0.050, VHMLHRC  7 >-0.050, VHMLHRC  8>-0.1 00, 

'■KKi.HRC  3  >«0.  100 .  VHMLHRC  10>-0. 100,  VHMLHRC  11  >-0. 100, VHMLHRC  12>-0.  100, 

VHMLHRC 13  >-0. 100. VHMLHRC 14  )-0. 100. VHMLHRC IS  >«0 . 100 , VHMLHR' 1 6 >-0 .034 , 

VHMLHRC 17  >-0.033. VHMLHR(  1 3 )-0 . 033 , VHMLKR( 1 9  >-0 .000 , VHMLHRC 20 >-0 . 000, 

VHMLHRC  21 >-0.000. VHMLHRC 22 >-0. 000, VHMLHRC 23 >-0. 000, VHMLHRC 24 >-0.000, 

CVA3M0<  1  .'-0.0833  .  CVASMOl  2 >-0 . 0833 , CVASMOC  3  >-0.0833,  CVABMOC  41-0.0833, 
CVaEMO( 5.-0. 0832, CVA8MO(  6 )-0 .0833 ,CVABMO(  7 >-0 .0833 ,CVA8MO(  8>-0.0833, 
CVABMO< 9  -0.0633 .CVABMOC 10 >-0.0833 , CVABMO( 11 >-0.0833 ,CVABMO( 12 >-0.0833, 

CVA8D  Y( 1  -0. 182,CVA8OY(2)-0.045, 

CVABHR<  1 >-0.0020, CVABHR(  2 >-0.0029 . CVABHRC  3 >-0.0029, CVABHR<  4J-0.0101, 
ClABHRC  5 >-0.0101 .CVABHR<  6 >-0.0101 .CVABHRC  7 >-0.0682 ,CVABHR(  81-0.0682, 
CVABHRt  9  >-0.0662 .CVABHR< 10 >»0. 0498 . CVABHRC 1 1 >-0.0498, CVABHRC 12  >-0.0498, 
CVABHRC i 3  >-0.0574, CVABHR< 1 4  > -0 . 0574 , CVABHRC 1 5  >-0.0574 ,CVABHR( 16  >-0.0821 , 
CVAi.HR; 17  >-0.0821 .CVABHRC 1 8  >-0.0821 . CVABHR( 1 9  >-0. 0356 ,CVABHR< 20 >-0.0356 , 
CVA6HR',  21  1-0.03 56, CVABHRC  22  >-0 .0272  ,  CVABHRC  23  >-0.0272,  CVABHR(  24  >-0.0272, 

FLMOC 1.1 >«0. 0833. FLMOC  2 , 1 >-0 . 0833 , FLMOC  3 , 1 >-0.0833 , FLMO(  4,l>-0.0833, 
PLMO(5. I  '-0.0833. FLMOC  5 , 1 > -0 . 0833 , FLMOC  7 , 1 >-0.0833 , FLMCK  8,l)-0.0833, 

?lNO; 5. 1  -0.0833. FLMO< 10, 1 >-0.0833 , FLMO( 1 1 , 1 >-0 . 0833 , FLMO( 12,1 >-0.0833, 

•LMO;  1 ,2 >-0.0600. FlMOC  2,2  >-0.0874,  FLMO(  3 , 2  >-0.0780,  FLMO(  4,2)-0.0694, 

FLMOC  5 , 2  / -0.0900.  FLMOC  6 , 2  >-0 . 1 203  ,  F!.MO<  7 , 2  >-0.0736  ,  FLMO(  8,2>»0.0914, 

FLMO(  9,2;  -0.0984  .  FLMO<  10, 2  >-0 . 0702  ,  F  LMOC  11 , 2  >-0.0994  ,  FLMCK  12,2  >-0.0616, 

FLMOC 1 . 4  >-0.0833 , FLMO(  2 . 4 ) -0 . 0833 , FLMO<  3 , 4 >-0.0333 , FLMCK  4,4)-0.0833, 

FLMOC  5,4; -0.0633 . FLMO(  S , 4 >-0 . 0833 , FLMCK  7 , 4 >-0.0833 , FLMCK  8,4>-0.0833, 

FLMOC 9,4  >-0.0833. FLMOC 10 , 4 > -0 . 0833 , FLMO( 1 1 , 4 >-0.0833 ,FLMO( 1 2 , 4 >-0.0833 , 

FLDY<  1,1  :■  -0 .  1  9 3  .  F L D Y {  2 , 1  >-0.035, 

FLDY< 1 ,2>-0. 1R2, FLDYC 2, 2 >-0.045, 

F 2 0 Y ( 1 .4  » -0.200, FLDY( 2,4  >-0.000, 

FLHRC  1 , 1 >-0.0, FLHRC  2, 1 1-0.0, FLHRC  3, 1 >-0.0, FLHRC  4,l>-0.0, 

FLHRC  5,1)  -0.0 ,  FLHP.C  6 , 1  >-0.033  ,  FLHR!  7 , 1  >-0.033  ,  FLHRC  8,l>-0.033. 

FLHRC  9.1) -0 . 100 . FLHR( 10 , 1 )-0 . 100, FLHRC 11,1 >-0 . 1 33 , FLHRC 12, 1 >-0. 136, 

FLHRC 13.1 >-0. 133.FLHR( 14,1 >*0. 100, FLHRC 15 , 1 >-0. 100, FLHRC 16 . 1 >-0.033. 

F L 17, 1) -0.033. FLHRC 18, 1 >-0 .033 , FLHRC 19,1 1-0 .000 , FLHRC  20,1 >-0.000, 

CLHR(  21,1 ) -0.000. FLHRC 22, 1 >-0.000, FLHR l 23, 1 >-0.000, FLHRC 24, 1 >-0.000, 

FL.-iRC  1 .2J-0.0, FLHRC  2 , 2  >-0. 0 ,  FLHRC  3 , 2  > -0.0 ,  F  LHRC  4,21-0.0, 

FLHRC  5.2 >-0.0. FLHRC  6 , 2 >-0.000, FLHR;  7 , 2 >-0. 0583 , FLHRC  8,2>-0.0588, 

F  u  H  R  <  9.2 >-0.05 68, FLHR! 10, 2 1-0.0588 , FLHRC 1 1 , 2 > -0 . 0588 , FLHRC 1 2 , 2 >-0 .0588 , 
FLHRC 13. 2>»0. .0553, FLHRC 1 4 , 2 >-0.0588 , FLHRC 1 5 . 2 >-0.0588 , FLHRC 16,21-0.0588, 
F'-HRC  17.2  1-0. 053  S.  FLHRC  18,2  >-0.0588,  FLHRC  1 9 , 2  >-0.0538  ,  FLHRC  20, 2  >-0.0588  , 
FLHRC 21 ,2 >-0.0588. FLHRC  22 , 2  >-0.0588 , FLHRC  23 . 2  >-0. 0588 , FLHRC  24,2 >-0.0, 

FLHRC  1 , 4  >-0.0 , FLHRC  2 , 4  )-0.0 , FLHRC  3 , 4 >-0.0, FLHR C  4,41-0.0, 

FLHRC  5.4  ) -0.0,  FLHRC  6 , 4  1-0.000 ,  FLHP.C  7 , 4  >-0.  100  .  FLHRC  3,4)-0.100, 

FLHR.'  9,4  >-0.  :  ,  FLHRC  10,4  >»0.  1  .FLHRC  1  1 ,4  )-0.  1  .FLHP.C  12, 4  >-0.  1  , 

FLHRC 13, A) -0. I, FLHR (14, 4) -0.1, FLHRC 15, 4> -0.1, FLHRC 16, 4) -0.1, 

FLHR!  17, 4  >-0.0. FLHRC 18,4 >-0.0, FLHRC 19.4  >-0.0, FLHRC 20, 4 ) -0.0, 

FLHR'.  21 . 4  >-0.0,  FLHRC  22, 4  ) -0.0,  FLHRC  23. 4  >-0.0, FLHP.C  24 , 4  >-0.0, 

CVENMOC 1  -0.0800. CVENMOC  2 ) -0 . 0783 , CVENMOC  3  1-0 .0822 .CVENMOC  4>«0.0827, 
CVENMOC  3  . -0.05)-5i. CVENMOC  6  >-0.0846. CVENMOC  7  ) -0 .086  1  , CVE NMOC  81-0.0870, 
CVErlMOC 9  -0.0336. CVENMOC 10 ) -0 . 0857 , CVENMOC 11 > -0 . 0828 , CVENMOC 12J-0.0816, 

CVE  HD"  i  .  -0.  1 42S  .CVENDY  C  2  >-0.1428. 

CVENHRC  l  >-0.005 .CVENHRC  2 > -0 . 003 , CVE NHRC  3 > -0 . 00 1 , CVE NHRC  4>-0.002, 

CVENHR<  5  !»0. 005 .CVENHRC  6 >-0 . 040 , CVENHRC  7 >-0 . 090 , CVE NHRC  3>«0.057, 

CVENHR;  9  >-0.04  4..  CVENHRC  10  >-0 .  .04  4  ,  CVENHRC  1  1  > -0 . 044  ,  CVE  NHRC  12  >-0.045, 

CViNHRC 131-0. 046, CVENHRC 1 4 >-0 . 053 , CVENHRC 1 5 >-0.064 .CVENHRC 161-0.093. 

CVENHRC 17  >-0. 103 .CVENHRC  1 3  ) -0 . 064 , CVENHRC 1 9  >-0 . 05 4 , CVE NHRC  20 >-0.041 , 

CVENHRC  21  >-0.034. CVENHRC  22  >»0 . 026 .CVENHRC 23  >»0 .022 .CVENHRC 24  >-0.0H , 

FLDYC  2,6  -0. .  FlDV  C  2,7  >-0. ,FLDY( 2,5  >-0. , 

FLDYC 1 ,6>-0. ,  F.DYC 1 ,7  >-0. ,FL0YC l ,5  >-0. , 

FLMOC 1 ,5  >-0. , FLMO; 2,5  >-0. , FLMOC 3 , 5  >-0. , FLMOC  4 , 5  >-0. , FLMOC  5 , 5 ) -0. , FLMOC  6,5>-0 
FLMOC  7,5 '-0. .FLMOC  8,5 )-0. .FLMOC  9, 5  >«0. .FLMOC 10.5  >-0. .FLMOC 11,5  1-0., 

FLMOC 1 .6  >-0  , FLMOC  2,6 )-0. .FLMOC  3.6  1-0. , FLMOC  4 . 6  >-0. , FLMOC  5 , 6  >-0. .FLMOC  6,6  >-0 
FLMOC  7,6  >-0. .FLMOC  8,6  >-0. , FLMOC  9 . 6  > -0 . , FLMOC 10,6  >-0. .FLMOC 11 ,6>-0. . 

FlMOC 1 , 7 )-0. .FLMOC  2.7 )-0. , FLMOC  3 , 7  > -0 . , FLMOC  4 , 7 >-0. , FLMOC 5 r7 1-0. .FLMOC  6,7 >-0 
FLMOC  7,71-0. .FLMOC  8.7  >-0. , FLMOC  9 , 7 1-0. , FLMOC 10,7 )-0. .FLMOC 11 ,7)-0. , 
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9*  GROUND  SERVICE  EQUIPMENT 
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54755. 

234120. 
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100. 

1100 
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100. 

1000 
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100. 

1110 
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100. 

1000 
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100. 

1010 
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100. 

1010 

17 

100. 

01 10 

25 

100. 

1000 

i 
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A. 3  GSE  POLLUTANT  EMISSION  DATA 


GSE  POLLUTANT  EMISSION  RATES 


GROUND  SUPPORT  EQUIPMENT 
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GROUND  SERVICE  EQUIPMENT  EMISSIONS 
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The  following  corrections  are  applicable  to  ESL-TR-81-60,  Development 
of  a  Computer  Emission  Inventory  Routine  for  Aircraft  Ground  Support  Equip¬ 
ment,"  Volume  II,  September  1981- 


Page  84 

Computer  code  listings  should  be  changed  as  follows  between  lines  200 
and  210: 


.'00  CONTINUE 

Ml -THEAT-TBARi UTBAR/2.0 

TM PFCT ( 1 ) - N 1 **2/ ( 2 . 0* ( 0TBAR / 2 . 0 )** 2 ) 

I F(N1 . LE.0. )  GOTO  201 

!K(TMI>ECT(  1  ).I.E.0.)  GOTO  201 

I F(TMPFCT( t  )  .GE.  1  .  )  TMPFCT( 1)1. 

GOTO  202 

201  TMPFCT(t)  0. 

202  N2  TBAR  t  UTBAR/ 2 . 0-TC00L 

TMPFCT ( 2 ) - N 2** 2 / ( 2 . 0* ( UTBAR / 2 . 0 ) ** 2  ) 
1 F  (  N  2 .  LE .  0 . )  GOTO  203 
l  F( TMPFCT (  2)  .  l.E  .0.  )  GOTO  203 
I F( TMPFCT ( 2 )  .GE  .  1  .  )  TMPFCT(2>  1. 

GOTO  204 

203  TMPFCT(2)=0. 

204  00  210  I C  —  3 , 1 5 
TMPFCT ( IC)-1  . 

210  CONTINUE 
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